One way:

Activecell.EntireRow.Copy Destination:=Sheets("Sheet2").Range( _
"A" & Rows.Count).End(xlUp).Offset(1, 0)


In article ,
Craig from MI wrote:

Dear Great Minds of Excel,

I'm trying to write a macro for exel to copy a row in one worksheet
then paste it in another worksheet but in an empty cell right below the
previous paste.

For example:

Worksheet 1

1 2 3 4 <---Copy

worksheet 2

0 0 0 1
1 2 3 4 <--- Then paste below 0 0 0 1

I think I would use active offset but it is not working. Can anyone
help? Thanks


---
Message posted from http://www.ExcelForum.com/