Userform data to start at specific cells

Get rid of your helper column and find last row of column B

Option Explicit
Dim LastRow As Integer

Private Sub cmdAdd_Click()
With Sheets("PartTKC3")
LastRow = Cells(.Rows.Count, "B").End(xlUp).Row
.Cells(LastRow + 1, 2).Value = Me.txtNama.Value
.Cells(LastRow + 1, 3).Value = Me.txtSesi.Value
.Cells(LastRow + 1, 4).Value = Me.txtTarikh.Value
.Cells(LastRow + 1, 5).Value = Me.txtBox1.Value
.Cells(LastRow + 1, 6).Value = Me.txtBox2.Value
.Cells(LastRow + 1, 7).Value = Me.txtBox3.Value
'clear the data
Me.txtNama.Value = ""
Me.txtSesi.Value = ""
Me.txtTarikh.Value = ""
Me.txtBox1.Value = ""
Me.txtBox2.Value = ""
Me.txtBox3.Value = ""
Me.txtNama.SetFocus
End With
End Sub

Originally Posted by torachan

Get rid of your helper column and find last row of column B

Option Explicit
Dim LastRow As Integer

Private Sub cmdAdd_Click()
With Sheets("PartTKC3")
LastRow = Cells(.Rows.Count, "B").End(xlUp).Row
.Cells(LastRow + 1, 2).Value = Me.txtNama.Value
.Cells(LastRow + 1, 3).Value = Me.txtSesi.Value
.Cells(LastRow + 1, 4).Value = Me.txtTarikh.Value
.Cells(LastRow + 1, 5).Value = Me.txtBox1.Value
.Cells(LastRow + 1, 6).Value = Me.txtBox2.Value
.Cells(LastRow + 1, 7).Value = Me.txtBox3.Value
'clear the data
Me.txtNama.Value = ""
Me.txtSesi.Value = ""
Me.txtTarikh.Value = ""
Me.txtBox1.Value = ""
Me.txtBox2.Value = ""
Me.txtBox3.Value = ""
Me.txtNama.SetFocus
End With
End Sub

Thanks torachan, but I need the helper column to give unique id based on B2 and C2. Is it possible to accomplish this without removing the helper column?

When replying please do not clutter the reply with 'quote' use the quick reply box unless it is absolutely necessary to include 'quote'.
The attached file has the on sheet formula removed as this can be better generated by the code when saving.
Also removed surplus "|" as these confuse getting the last row.
torachan.

Thank you torachan!

P/s- Next time I won't clutter my reply unless it is really necessary.
Rep added.

You are welcome - thanks for the Rep.