Error al ingresar dato de formulario a celda en excel

Tengo 3 txtbox y quiero que guarde el dato de cada celda de forma lineal EJ (A1-B1-C1)

Y al digital en cada caja de texto el cursor también salte a la siguiente línea para su txtbox correspondiente

Textbox1 tengo

Private Sub TextBox1_Change()

ActiveCell.FormulaR1C1 = TextBox1
ActiveCell.Offset(0, 1).Select

End Sub

Y así sicesivamnete y el txtbox3 haga lo mismo guarde el dato de su celda y se cierre automáticamente

El formulario