If I have understood well...
You code it's correct to take data... but Using your code you have:
1) You cannot insert directly a name, but you need to populate the combo with all the data before (I have linked to the first column)
2) During The update using:
ActiveCell.Offset(0, 0) = TextBox1.Text
ActiveCell.Offset(0, 1) = TextBox9.Text
ActiveCell.Offset(0, 3) = ComboBox7.Text
ActiveCell.Offset(0, 2) = ComboBox8.Text
...
you can have problem because VBA can update the value of Textbox BEFORE you write in the cells
To solve the point 1) you can use the event AfterUpdate. Work with Click and direct insert
To solve the point 2) you can use this code:
Dim Tmp As String
Tmp = TextBox2.Text
ActiveCell.Offset(0, 1) = tmp
for each cell... The update code you can insert in a Button:
Private Sub CommandButton1_Click()
In the button code you need to use "ActiveCell" instead rfound because this var you don't have, but your code select the cell...