Tengo un código vba, pero al ejecutarlo no me guarda los datos en la hoja "que yo quiero", guarda la información en la otra.

Tengo tres hojas "PRINCIPAL", "VENTAS" Y "PRODUCTOS". Tengo un botón que ejecuta un formulario y esta en la hoja "PRINCIPAL", pero yo quiero que me guarde las datos que ingreso en el formulario en la hoja "PRODUCTOS", y no lo esta haciendo. Que estoy haciendo mal, Gracias. Aquí les dejo el código.

Private Sub CommandButton1_Click()
Dim texto1 As String
Dim texto2 As String
Dim texto3 As String

If TextBox1.Text = "" Then
MsgBox "PLEASE ENTER A PRODUCT NAME", , "Mundo G."

TextBox1.SetFocus
Exit Sub
End If
If TextBox2.Text = "" Then
MsgBox "POR FAVOR INGRESA UN NUMERO", , "Mundo G."
TextBox2.SetFocus
Exit Sub
End If

If TextBox3.Text = "" Then
MsgBox "POR FAVOR INGRESE UN NUMERO", , "Mundo G."
TextBox3.SetFocus
Exit Sub
End If
If Not IsNumeric(TextBox3) Then
MsgBox "INGRESA UN NUMERO", vbCritical, "WARNING"
Cancel = True
TextBox3.SelStart = 0
TextBox3.SelLength = Len(TextBox3)
TextBox3.SetFocus
Exit Sub
End If

texto1 = TextBox1.Value
texto2 = TextBox2.Value
texto3 = TextBox3.Value

With ThisWorkbook.Worksheets("PRODUCTOS")
Set TransRowRng = ThisWorkbook.Worksheets("PRODUCTOS").Cells(1, 1).CurrentRegion
NewRow = TransRowRng.Rows.Count + 1

Cells(1, 1) = texto1
Cells(1, 2) = texto2
Cells(1, 3) = texto3
End With

TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
ActiveWorkbook.Sabe

TextBox1.SetFocus

DoEvents

MsgBox "PRODUCTO GUARDADO EXITOSAMENTE", , "Mundo "
End Sub