In your code, iRow will be the last row with data... the OP will need to add
one to it to get to the first *empty* row after it.

'copy the data to the database
..Cells(iRow + 1, 4).Value = Me.TxtProjectname.Value

--
Rick (MVP - Excel)


"Eduardo" wrote in message
...
Hi,
you need to look for the first empty row

Dim iRow As Long
Dim ws As Worksheet

Set ws = Worksheets("Projects") ' change to your name

'find first empty row in database
With ws
iRow = .Cells(.Rows.Count, 3).End(xlUp).Offset(1, 0).Row

'copy the data to the database
.Cells(iRow, 4).Value = Me.TxtProjectname.Value ' change to your
form name

If this helps please click yes, thanks


"Darrell_Sarrasin via OfficeKB.com" wrote:

I am thinking of a new approach for something. I want to create a user
form,
and from that user form fill in details on a spreadsheet. that is the
simple
part. what I want to do thou is be able to enter the new record on the
next
blank line. that is where I am confused. help please.

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200906/1