Insert the value from an input box

[Tempy]

Hi, i need to insert a value into a cell in a different worksheet to the
one that i am working in.
I need to start at A1 and go down to the end of the list and insert the
input box value in the next empty space.
Could somebody please help with some code, thanks in advance.

Tempy

 

[Bob Phillips]

something akin to

ans = Inputbox(value)

With worksheets("Sheet2")
.Cells(.Cells(Rows.Count,"A").End(xlUp).Row+1,"A").Value = ans
End With

 

[Tempy]

Thanks Bob, your help is appreciated as always.

Tempy