Ingresar datos de un textbox1 a una celda

Saludos.
Bueno soy nuevo en las macros pero con los ejemplos estoy aprendiendo, mi consulta es : he creado un formulario y mediante un textbox1 quiero ingresar lo que escribo a una celda. He tratado de hacerlo logrando ingresar el dato pero cuando escribo en el textbox1 por ejemplo "Pedro" se escribe en cada celda así "p","pe","ped","pedr","pedro" y no es lo que quiero, yo quiero que cuando vaya escribiendo se observe lo que ingreso.
agradecira mucho su ayuda
Nombre
Veto
Fernando
p
Pe
ped
Private Sub TextBox1_Change()
'Trasladarse a una Celda
Range("nombre").Select
If ActiveCell.Value = Range("Nombre") Then
'Bajamos hasta la última fila adyacente, que contenga datos
Selection.End(xlDown).Offset(1, 0).Value = TextBox1.Text
End If
End Sub