Copy to next blank line

Closed
Report
-
 fmelvin -
I'm new to macro - so don't laugh... I'm trying to copy Cells A1 and B1 from 400 worksheets to a single worksheet (Merge). The following macro code copies and pastes the cells but overwrites each time the macro is run.

How can I tell the system to paste in the next blank row?


Sub Macro5()
'
' Macro5 Macro

'
Range("A1:B1").Select
Selection.Copy
Sheets("Merged").Select
Range("A1").Select
ActiveSheet.Paste

End Sub

2 replies

Posts
261
Registration date
Saturday April 11, 2009
Status
Member
Last seen
June 21, 2011
307
Hi fmelvin

use Range("A401").End(xlup).Select
3
Thank you

A few words of thanks would be greatly appreciated. Add comment

CCM 2821 users have said thank you to us this month

Awesome Excelguru, I'll give it a try. I'll keep you posted - thanks again.