How to copy filtered data without copying empty cells - vba

Question

Scenario
I have an excel sheet with a lot of values. I am using some macro to filter those values.
What I need
I need to copy only the filtered values from current sheet to another sheet. I am doing the following way
Sub filterCopy()
Selection.SpecialCells(xlCellTypeVisible).Copy
Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Issue
The above code doing exactly what is supposed to do by copying only the visible cells. But the problem is, it is copying entire sheet including all the blank cells upto row number 1048480 and even more. But my data is only upto row number 12. How should I copy only the visible cells that contains data and not all those blank cells?
Pictures
Filtered Sheet
After copied filtered data to another sheet

Answer 1

Your code doesn't take into account the last cell in the vertical space, and actually copies everything in the A1 range.
The solution is first, to avoid Select as it provides low performance, then to use
Cells(Rows.Count, "A").End(xlUp).Row
to get the last row in the A column. This gives us
Sub filterCopy()
Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy Sheets(2).Range("A1")
End Sub
To copy the full table with the filtered rows, then use
Sub filterCopy()
Sheets(1).UsedRange.SpecialCells(xlCellTypeVisible).Copy Sheets(2).Range("A1")
End Sub