assume you have the cell with A selected

SeqNo = SeqNo + 1
Cells(rows.count,1).End(xlup).Offset(0,1).Select
With Userform1
ActiveCell.Value = SeqNo
ActiveCell.offset(0,1).Value = .Textbox2.Text
ActiveCell.Offset(0,2).Value = .Combobox1.Value
ActiveCell.Offset(0,3).Value = .Textbox3.Text
End With

--
Regards,
Tom Ogilvy

"Newbie1" wrote in message
...
Hi everyone

I am trying to create an Excel database.
I have created a userform with several text boxes and combo boxes. This
runs on opening the file.
My plan is to be able to click on a command button and have the boxes
contents go to the next empty row on the sheet.
I have managed to create code to select the first cell of the empty row
and
fill "A" with a sequential number.
How do I fill the row with the data from the boxes???

All advice accepted!

Kenny