CommandButton1 (sugerencias)

Hola a todos.
Tome prestado un codigo para adaptarlo a mis necesidades, obviamente me
quede trabado por la mitad.

Que es lo que necesito?. El comman... contiene 4 campos a llenar. El primero
lo debe leer de una celda determinada, el segundo, tercero y cuarto, son
datos alfanumericos que el usuario debe cargar.

Una vez que el usuario complete esta accion por medio de un enter debe
volcarse esos datos a la planilla en una ubicacion especifica y quedar lista
en la fila siguiente en el caso que hubiera mas datos.

Bueno les copio el codigo tal cual lo tengo. Espero que me puedan ayudar.
Gracias

Private Sub CommandButton1_Click()
Rem inserta un renglon
Selection.EntireRow.Insert
Rem Empty Limpia Los Textbox
TextBox1 = [a4]
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty

Rem Textbox2SetFocus Envia el cursor al Textbox1 para volver a capturar los
datos
TextBox2.SetFocus
End Sub
Private Sub TextBox1_Change()
Range("a1198").Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub

Private Sub TextBox2_Change()
Range("b1198").Select
ActiveCell.FormulaR1C1 = TextBox2
End Sub

Private Sub TextBox3_Change()
Range("c1198").Select
ActiveCell.FormulaR1C1 = TextBox3
End Sub

Private Sub TextBox4_Change()
Range("d1198").Select
ActiveCell.FormulaR1C1 = TextBox4
End Sub