Copy to next available open row of worksheet

[Ark68]

Using a macro, how would I copy rows from one worksheet, to the next available row of a second worksheet? The last open row will be volatile on sheet 2.

Jenn

 

[biztekjim]

'To find the last row of data in column A of Sheet2, use:

LastRow = Sheets("Sheet2").Range("A65536").End(xlUp).Row

'If you're using Excel 2007, change the 65536 to 1048576.

'To copy 5 columns of data from Sheet1 to Sheet2 assuming the source row on Sheet1 is 12:

For ColNo = 1 to 5
Sheets("Sheet2").Cells(LastRow + 1, ColNo) = Sheets("Sheet1").Cells(12, ColNo)
Next ColNo

There might be more efficient ways to accomplish this, but that's my 2 cents.