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