The following takes user input and placesit in the next available cell in
column A. You can adapt the technique to your needs:

Sub hfdsjf()
n = Cells(Rows.Count, "A").End(xlUp).Row + 1
v = Application.InputBox(prompt:="enter value", Type:=2)
Cells(n, "A") = v
End Sub

--
Gary''s Student - gsnu200785


"Amotif" wrote:

Hi everyone,
I'll be grateful if someone can help me set up a formula/macro through which
data can be placed on the next blank row. My intention is to create a
database of info and update the list sometime before I choose new dat (ie,
the existing quotation details can be saved in the database before the new
quotation is generated).
Thanks.