Input Box Script

[Donald]

I would like to have an input box where the inputted value will appear in the next open cell.
For Example:
If A4 has data, the inputted value will go into a5, and so forth.

At the same time, I would like to assign the current date for that inputted record in the column next to it (in column B)
For Example: A4 is used, the inputted value will appear in A5 with the today's date in B5.

Can this be done.

[Al Chara]

Sure it can be done. Try the following:

Sub InputData()
inputstr = InputBox("Enter Data")
Set Rng = [a1].End(xlDown).Offset(1, 0)
Rng.Value = inputstr
Rng.Offset(0, 1).Value = Date
End Sub