the bestt way of doing this is to setup some shortcut keys that activate
simple macros like the one below

Sub lastrow()

Sheets("Sheet2").Activate
mlastrow = Cells(Rows.Count, "A").End(xlUp).Row
Cells(mlastrow + 1, "A").Activate

End Sub

The above macro will move to the first empty cell in column a on worksheet
2. You can assign the macro a shortcut key by going to the worksheet menu
Tools - Macro - Options. Assign a key. This will get you to sheet 2. Going
back to sheet 1 just requires pressing the sheet 1 Tab on the bottom of the
worksheet.

"Dave" wrote:

I need a macro to
Copy the contents of the active cell on Sheet1 to the next empty cell in
column"A" on Sheet2,
Wait for the user to enter a number in next column on the same row,
Then return to the active cell on Sheet1

Your suggestions are greatly appreciated.