Steve, see if this will work for you,

Sub test()
Sheet2.Range("A65536").End(xlUp).Offset(1, 0) = Sheet1.Range("A1").Value
End Sub


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"Steve" wrote in message
...
I need a macro to find the first empty cell in column a of sheet 2 and
transfer the information of a cell in sheet 1. This value will change but
I
would like to compile a growing list as the cell in sheet 1 changes.