Sub ...
Dim rngAddme As Range
Dim WS As Worksheet
Set WS = Sheet1 '(Sheet dang can day data)
Set rngAddme = WS.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
With Sheet1
rngAddme.Value = textbox1.Value
rngAddme.Offset(0, 3).Value = ComboBox4.Value
'.... tuong tu vs cac o khac
End With
End Sub