Dim rgToPaste as Range Set rgToPaste = Sheets("some sheet").Range("A2:A" & Rows.Count).Specialcells(xlCellTypeVisible).Cells(1)