ELIMINAR E INSERTAR Y ACTUALIZAR

BOTON ELIMINAR
 
Private Sub Eliminar_Click()
Selection.EntireRow.Delete
Range("A9").Select
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub


BOTON INSERTAR
 
Private Sub Insertar_Click()
Range("A9").Select
Selection.EntireRow.Insert
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub

BOTÓN DE ACTUALIZAR
Private Sub Actualizar_Click()
Range("b2").Select
ActiveCell.FormulaR1C1Local = TextBox2.Text
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = TextBox3.Text
End Sub

CUADROS DE TEXTO
 
Private Sub TextBox1_Change()
Range("A9").FormulaR1C1 = TextBox1
Rem esta primer línea reemplaza a estas dos...... que te parece todavía mas corta
Range("A9").Select
ActiveCell.FormulaR1C1 = TextBox1[Leon1]
End Sub
Private Sub TextBox2_Change()
Range("B9").FormulaR1C1 = TextBox2
End Sub
Private Sub TextBox3_Change()
Range("C9").FormulaR1C1 = TextBox3
End Sub
Si con el Botón Consulta tienes un error cuando no encuentra a la persona, entonces tendrás que agregar esto a tu código del Botón Consultar