Copy portion of filtered list

No, you don't need to select the range. To copy it you could use

Sub x()

Dim rng As Range

Set rng = Range("D5", Range("K" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible)

rng.Copy Sheet2.Range("A1")

End Sub

Thank you very much Stephen! The code works perfect.