Like the other guy said, but here is an example:

Sub testit()
Dim X As Variant

'do your first stuff here....
'now have the code get their input:
Let X = InputBox(prompt:="Please enter the number now")
'now record that value in your cell , example here is D5.
cells(5,4).value=val(X)

'now continue on...

End Sub