Código Botón Acepar Agenda BB

'Declaramos variable que nos permite manipublar las filas o renglones.
Dim Renglon As Integer
Renglon = 1
'Códgo para recorrer los datos que tenemos ya en nuestra hoja de cálculo y saber donde guardar el último dato.
Do While ActiveSheet.Cells(Renglon, 1) <> ""
Renglon = Renglon + 1
Loop
'Asignamos los datos contenidos en el formulario a la hoja de cálclo.
ActiveSheet.Cells(Renglon, 1).Activate
ActiveSheet.Cells(Renglon, 1) = Renglon - 1
ActiveSheet.Cells(Renglon, 2) = txtNombre.Text
ActiveSheet.Cells(Renglon, 3) = txtPin.Text
ActiveSheet.Cells(Renglon, 4) = txtcorreo.Text
'Código para limpiar los cadros de texto despues de guardar en la hoja de calculo.
txtNombre.Text = ""
txtPin.Text = ""
txtcorreo.Text = ""
'Poner el cursor en el cuadro de texto del nombre
txtNombre.SetFocus