Macro para enumerar celdas de acuerdo a numero donde inicia y donde termina, eligiendo en que celda empieza la numeración

H o l a:

Te anexo la macro

Sub Numerar()
'Por.Dante Amor
    ini = Application.InputBox("Escribe el número inicial", "NUMERAR", ActiveCell, 8)
    If ini = False Then Exit Sub
    If Not IsNumeric(ini) Then Exit Sub
    fin = Application.InputBox("Escribe el número Final", "NUMERAR")
    If fin = False Then Exit Sub
    If Not IsNumeric(fin) Then Exit Sub
    If fin < ini Then
        MsgBox "El número final debe se mayor al inicial", vbExclamation, "NUMERAR"
        Exit Sub
    End If
    '
    For i = ini To fin
        ActiveCell.Offset(n, 0) = i
        n = n + 1
    Next
End Sub

Instrucciones para userform

1. Abre tu hoja de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / UserForm
4. Le das dobleclik en cualquier parte del Panel del userForm y copias la macro
5. En el panel del UserForm creas un Combobox, que se llame ComboBox1

Sigue las Instrucciones para un botón y ejecutar la macro

1. Abre tu libro de Excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Ahora para crear un botón, puedes hacer lo siguiente:
6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
9. Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: Numerar
10. Aceptar.
11. Para ejecutarla dale click a la imagen.