Multiplicación de 2 valores en textbox

hola y complacido de contar con tus conocimientos profesionales tu aporte fue excelente con el botón de avanzar ok tengo este código el cual lo tengo para insertar datos en la hoja pero no se por que razón el no me hace la operación matemática requerida

Sub grabacantidad()
Sheets("Registros").Select
ult = Cells(Rows.Count, 4).End(xlUp).Row
Cells(ult + 1, 1) = TextBox1.Text
Cells(ult + 1, 2) = TextBox2.Text
Cells(ult + 1, 3) = ComboBox3.Text
Cells(ult + 1, 4) = ComboBox2.Text
Cells(ult + 1, 5) = TextBox3.Text
Cells(ult + 1, 6) = textbox4.Text
Cells(ult + 1, 7) = textbox5.Text
Cells(ult + 1, 8) = TextBox6.Text
Cells(ult + 1, 9) = TextBox7.Text
Cells(ult + 1, 11) = TextBox9.Text
Cells(ult + 1, 12) = TextBox10.Text
Cells(ult + 1, 13) = TextBox11.Text
Cells(ult + 1, 14) = TextBox12.Text
Cells(ult + 1, 15) = TextBox13.Text
Cells(ult + 1, 16) = TextBox14.Text
Cells(ult + 1, 17) = TextBox15.Text
For X = 3 To 2000
Cells(X, 8) = Cells(X, 6) * Cells(X, 7)
Next
ComboBox2.Text = ""
ComboBox3.Text = ""
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = "" '
textbox4.Text = ""
textbox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
TextBox14.Text = ""
TextBox15.Text = ""
End Sub

no se si tenga algo que ver este submain que es de avanzar aquí un fragmento.

uf = Range("A" & Rows.Count).End(xlUp).Row
pf = 3
f = ActiveCell.Row
If f > uf Or f < pf Then
Range("A3").Select
f = ActiveCell.Row
End If
Select Case n
Case 0
Range("A3").Select
f = ActiveCell.Row