Formulario Excel -Guardar Registros

Después de crear el formulario debemos agregar las siguientes instrucciones, dar doble clic al botón "Guardar"

Botón de Guardar el siguiente código:

Private Sub CommandButton1_Click()
For A = 5 To 500 'Aquí declaro una variable''El número 5 representa la fila en la que empezaré'
If Cells(A + 1, 3).Value = "" Then ' aquí ponemos que empezaremos en la fila 6'
Cells(A + 1, 3).Value = TextBox1   'El numero 3 representa la columna ejemplo columna3=C'
Cells(A + 1, 4).Value = TextBox2 ' Teléfono
Cells(A + 1, 5).Value = TextBox3 ' Edad
TextBox1 = Empty ' una vez dado clic se vacia el campo
TextBox2 = Empty
TextBox3 = Empty

Exit For
End If
Next

End Sub

Ahora agrego la programación de los otros dos botones

Para el botón Cancelar el siguiente código:

Private Sub CommandButton2_Click()
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
End Sub

Para el Botón de Cerrado lo siguiente:

Private Sub CommandButton3_Click()
UserForm1.Hide
End Sub