código del modulo vba y código para guardar los datos a una hoja electrónica

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
__________________________________________________________________
Estos son los códigos para guardar los datos en la hoja electrónica ////////////////////
_________________________________________________________________
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
________________________________________________________________
Códigos para borrar datos del los textBox//////////////////////////////////////
________________________________________________________________
Private Sub CommandButton3_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""

End Sub
_________________________________________________________________________________
código para salir del formulario//////////////////////////////////////////////
_________________________________________________________________________________
Private Sub CommandButton4_Click()
End
End Sub
_________________________________________________________________________________
Código para llamar al formulario de visual basic desde excel../////////////////////////////////////////////////
_________________________________________________________________________________
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
___________________________________________________________________________