Formula/Macro to place data on the next blank row

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.

GarysStudent
Sun May 11 06:30:00 CDT 2008

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.

Amotif
Sun May 11 21:10:00 CDT 2008

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

"Gary''s Student" wrote:

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