hi
something like this might work. example code only...

Sub transfertest()
Dim ip As String
Dim sh As Worksheet
Dim rng As Range
Set sh = ActiveSheet
Set rng = ActiveCell
ActiveCell.Copy
Sheets("sheet2").Activate
Range("a1").End(xlDown).Offset(1, 0).PasteSpecial xlPasteAll
ip = InputBox("enter something") 'change if needed
ActiveCell.Offset(0, 1).Value = ip
If MsgBox("do you want to go back to the last sheet?", vbYesNo) = vbYes Then
sh.Select
rng.Select
Else
Exit Sub
End If
End Sub

regards
FSt1

"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.