Private Sub CommandButton1_Click()
Dim ListObj As ListObject, Sh As Worksheet, i As Long
Set Sh = Sheets(1)
Set ListObj = Sh.ListObjects("TB")
i = Sh.Cells(Rows.Count, 1).End(xlUp).Row
With ListObj
Sh.Cells(i, 1) = TextBox1
Sh.Cells(i, 2) = TextBox2
Sh.Cells(i, 3) = TextBox3
Sh.Cells(i, 4) = Format(TextBox4, "@")
End With
ListObj.ListRows.Add
End Sub