View Single Post
 
Old 10-30-2015, 03:26 AM
Debaser's Avatar
Debaser Debaser is offline Windows 7 64bit Office 2010 32bit
Competent Performer
 
Join Date: Oct 2015
Location: UK
Posts: 221
Debaser will become famous soon enough
Default

This is one way:

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