Quiero obtener los rangos de serie con núm.faltantes; serie 15 núm.faltan 2(6,10);rangos: 1-5;7-9.

Los números que faltan son el 6, el 10 y el 13. ¿Cómo sería la macro?

Sí los rangos inicial y final en otras celdas

Gracias por responder

En tu ejemplo el número que falta es el 10.

Los rangos se obtendrían con una macro, ¿quieres qué te la haga?

¿Los rangos los pongo en otras celdas?

Siempre son 15 números y en cuál columna están.

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 Asignar macro / Selecciona: rangos
9. Aceptar.
10. Para ejecutarla dale click a la imagen.

Sub rangos()
'Por.DAM
c = "A"
d = "B"
fila = 1
ini = Cells(fila, c)
j = fila
n = ini
Columns(d).ClearContents
For i = fila + 1 To Range(c & Rows.Count).End(xlUp).Row + 1
    n = n + 1
    If n <> Cells(i, c) Then
        Cells(j, d) = "'" & ini & "-" & Cells(i - 1, c)
        ini = Cells(i, c)
        j = j + 1
        n = ini
    End If
Next
End Sub

La macro supone que tus datos empiezan en la celda A1.

Cambia en la macro "A" por la columna en donde tienes tus datos.

Cambia en la macro "B" por la columna en donde quieres los rangos.

Cambia en la macro fila=1 por el número de fila en donde empiezan tus datos.

Saludos. Dante Amor
No olvides finalizar la pregunta.