Selecting and pasting to an empty cell

[Craig from MI]

Dear Great Minds of Excel,

I'm trying to write a macro for exel to copy a row in one workshee
then paste it in another worksheet but in an empty cell right below th
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 anyon
help? Thank

 

[JE McGimpsey]

One way:

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