This code copies the filtered data in the active worksheet to a new sheet.
VBA Code:
Sub CopyFilteredDataToNewSheet()
Dim newSheet As Worksheet
Set newSheet = Worksheets.Add
ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Copy Destination:=newSheet.Range("A1")
End Sub
Check All VBA Codes
Join Our Telegram Group
Join Our WhatsApp Group
Nazim Khan (Author) 📞 +91 9536250020
[MBA in Finance]
Nazim Khan is an expert in Microsoft Excel. He teaches people how to use it better. He has been doing this for more than ten years. He is running this website (TechGuruPlus.com) and a YouTube channel called "Business Excel" since 2016. He shares useful tips from his own experiences to help others improve their Excel skills and careers.