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