Al dar enter que se posicione en un textbox en especifico.

Quisiera me pudieran apoyar con un problemita que tengo, al darle enter en mi excel hace un proceso de insertar datos pero quisiera que se posicionara en un celda en especifico y o logro hacerlo te pego mi código para que me puedas apoyar por favor

Private Sub TextBoxMaterias_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = 13 Then

Dim strTitulo As String

Dim Continuar As String

Dim TransRowRng As Range

Dim NewRow As Integer

Dim Limpiar As String

    Set TransRowRng = ThisWorkbook.Worksheets("ETIQUETAS").Cells(1, 1).CurrentRegion

    NewRow = TransRowRng.Rows.Count + 1

    With ThisWorkbook.Worksheets("ETIQUETAS")

        .Cells(NewRow, 1).Value = Me.ComboBoxEscuela.Value

        .Cells(NewRow, 2).Value = Me.ComboBoxGrado.Value

        .Cells(NewRow, 3).Value = Me.TextBoxGrupo.Value

        .Cells(NewRow, 4).Value = Me.TextBoxAlumno.Value

        .Cells(NewRow, 5).Value = Me.TextBoxProf.Value

        .Cells(NewRow, 6).Value = Me.TextBoxMaterias.Value

    End With

TextBoxMaterias.Value = Empty

TextBoxMaterias.SetFocus

End If

TextBoxMaterias.SetFocus

End Sub