Option Explicit
Private Sub CommandButton1_Click()
Dim lngRow As Long
lngRow = Cells(Rows.Count, 2).End(xlUp).Row
Cells(lngRow, 2).Value = TextBox1.Value
Cells(lngRow, 3).Value = ComboBox1.Value
Cells(lngRow, 4).Value = ComboBox2.Value
Cells(lngRow, 5).Value = TextBox2.Value
Cells(lngRow, 6).Value = TextBox3.Value
Cells(lngRow, 7).Value = TextBox4.Value
Cells(lngRow, 8).Value = TextBox5.Value
Cells(lngRow, 9).Value = ComboBox3.Value
Cells(lngRow, 10).Value = TextBox6.Value
Me.Hide
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
ComboBox1.Text = ""
ComboBox2.Text = ""
ComboBox3.Text = ""
End Sub