Como vincular un textbox a una celda

El código sería así:

Private Sub TextBox5_Change()
    u = Range("B" & Rows.Count).End(xlUp).Row + 1
    Cells(u, "B") = TextBox5
End Sub

Pero con lo anterior, por cada letra que escribas en el textbox se escribirá el dato en una celda nueva.

Te recomiendo que pongas un botón, entonces capturas en el textbox y después de capturar presiones el botón,

Te anexo el código para el botón:

Private Sub CommandButton1_Click()
    If TextBox5 = "" Then Exit Sub
    u = Range("B" & Rows.Count).End(xlUp).Row + 1
    Cells(u, "B") = TextBox5
End Sub

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

.

Buenas Dante perdona pero si tuviese más Message box como seria para que el mismo botón guardara los datos en el archivo

Gracias

Buenas Dante y perdona lo coloque así

Private Sub CommandButton1_Click()
If TextBox4 = "" Then Exit Sub
o = Range("F" & Rows.Count).End(xlUp).Row + 1
Cells(o, "F") = TextBox4
If TextBox5 = "" Then Exit Sub
u = Range("B" & Rows.Count).End(xlUp).Row + 1
Cells(u, "B") = TextBox5
If TextBox6 = "" Then Exit Sub
i = Range("C" & Rows.Count).End(xlUp).Row + 1
Cells(i, "C") = TextBox6
If TextBox7 = "" Then Exit Sub
e = Range("D" & Rows.Count).End(xlUp).Row + 1
Cells(e, "D") = TextBox7
If TextBox8 = "" Then Exit Sub
a = Range("E" & Rows.Count).End(xlUp).Row + 1
Cells(a, "E") = TextBox8
End Sub

Private Sub TextBox4_Change()
o = Range("F" & Rows.Count).End(xlUp).Row
Cells(o, "F") = TextBox5

End Sub

Private Sub TextBox5_Change()
u = Range("B" & Rows.Count).End(xlUp).Row
Cells(u, "B") = TextBox5
End Sub

Private Sub TextBox6_Change()
i = Range("C" & Rows.Count).End(xlUp).Row
Cells(i, "C") = TextBox6

End Sub

Private Sub TextBox7_Change()
e = Range("D" & Rows.Count).End(xlUp).Row
Cells(e, "D") = TextBox7
End Sub

Private Sub TextBox8_Change()
a = Range("E" & Rows.Count).End(xlUp).Row
Cells(a, "E") = TextBox8
End Sub

Lo único que me salta error en el textbox4 y en el 5 los demás van bien

Gracias y saludos