insertar datos a excel VBA

PRIMERO HACER EL USERFORM1
BOTON CALCULAR O OPERAR

Private Sub CommandButton1_Click()
TextBox6.Text = Val(TextBox4.Text) * Val(TextBox5.Text)
End Sub

____________________________________________________
EN EL BOTON DONDE QUEREMOS GUARDAR LOS DATOS EN UNA HOJA DE EXCEL
SON LA FILA 1 COLUMNA SEGÚN EL ORDEN

Private Sub CommandButton2_Click()
registro
Sheets("datos").Select
ult = Cells(Rows.Count, 1).End(xlUp).Row
Cells(ult + 1, 1) = TextBox1.Text
Cells(ult + 1, 2) = TextBox2.Text
Cells(ult + 1, 3) = TextBox3.Text
Cells(ult + 1, 4) = TextBox4.Text
Cells(ult + 1, 5) = TextBox5.Text
Cells(ult + 1, 6) = TextBox6.Text

End Sub
________________________________________________________________________________

ESTE CODIGO SEGÚN EL MODULO A UTILIZAR
Sub registro()
IDPRODUCTO = UserForm1.TextBox1.Text
CATEGORIA = UserForm1.TextBox2.Text
PRODUCTO = UserForm1.TextBox3.Text
CANTIDAD_INGRESADA = UserForm1.TextBox4.Text
PRECIO_UNIT = Val(UserForm1.TextBox5.Text)
Total = Val(UserForm1.TextBox6.Text)

End Sub
_____________________________________________________________________________
PARA SALIR DEL USERFORM

Private Sub CommandButton4_Click()
End
End Sub
_______________________________________________________________________________
PROPIEDAD PARA LLAMAR UN FORMULARIO DESDE EXCEL
UserForm1.Show