Formula/Macro to place data on the next blank row

A

Amotif

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

Gary''s Student

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
 
A

Amotif

Great!
Could this also be applied to place data in a number of rows (ie columns A
to X) in one hit?
 
Top