Try something like this

Dim lrw as long

lrw = Sheets("Sheet1").Cells(Rows.COUNT, "B").End(xlUp).Offset(1,0).Row

If lrw < 16 then
lrw = 16
End If

Sheets("Sheet1").Cells(lrw,2)=txtCode1.Value
Sheets("Sheet1").Cells(lrw,3)=txtCode2.Value
Sheets("Sheet1").Cells(lrw,4)=txtCode3.Value

--
steveB

Remove "AYN" from email to respond
"antonov" wrote in message
.. .
ehmmm... a last question and hopefully I will be done with my sheet...
My sheet contains 2 tables of 4 columns / 17 rows each
The data for these tables SHOULD come from an userform (which I've already
made). When the "ready" button in the userform is pushed the data should
go in the first empty row (this is what I use for this purpose):

Private Sub cmdNext_Click()
ActiveWorkbook.Sheets("Sheet1").Activate
Range("B16").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True

Next step is where everything goes wrong:

now the data has to be input in the right place and this is what I do:

ActiveCell.Value = txtCode1.Value
ActiveCell.Offset(0, 1) = txtCode2.Value
ActiveCell.Offset(0, 2) = txtDate.Value
End sub

Apparently this code is not working. All I get is the first line
highlighted and that's it.

Furthermo when the first table is full (4 colums / 17 rows) I need the
data to go to the next table which start at the same hight as the first
(say row 16) but 7 columns to the right....

Sorry for the lenght of this but english is not my language and I don't
know how to keep it short...

Thanks for any help....