Selecting ranges

S

Steve Wood

I am a new user of macros. Excel 2002.
I need to select all cells in a range from cells A2:L2 down to the last row
in column active cell in column A. The number of active cells in Column A
varies in the 35 worksheets I have to gather information from. I then need to
paste the contents into another workbook. Any suggestions would be welcomed.
TIA
 
T

Tom Ogilvy

With activeSheet
.range(.cells(2,1),.Cells(rows.count,1).End(xlup)).Resize(,12).copy _
Destination:=Workbooks("Book2.xls").Worksheets(1).Range("A1")
End With
 
Top