Código:
Sub AñadirNumSec()
Dim i As Integer
On Error GoTo Last
i = InputBox("Ingresar cantidad de números", "Añadir números secuenciales")
For i = 1 To i
ActiveCell.Value = i
ActiveCell.Offset(1, 0).Activate
Next i
Last: Exit Sub
End Sub
⭐ Si te gustó, por favor regístrate en nuestra Lista de correo y Suscríbete a mi canal de YouTube para que estés siempre enterado de lo nuevo que publicamos.