posta um arquivo compactado com a sua planilha

Boa noite!!

Tente

Sub TesteSec()
Dim I As Long, K As Long
K = 1
For I = 2 To Cells(Rows.Count, "A").End(xlUp).Row
    If Cells(I, 1) <> Cells(I - 1, 1) + 1 Then
        Cells(K, 2) = Cells(I, 1) - 1
        K = K + 1
    End If
Next
End Sub

dexter,

Assumindo que seus dados estejam em A1:A8 (conforme exemplo acima), faça a seguinte matricial em B1:

{=SEERRO(MENOR(SE(CONT.SE($A$1:$A$8;LIN($A$1000:$A$1011))=0;LIN($A$1000:$A$1011);"");LINS($A$1:A1));"")}

Arraste para baixo.

Observe que é necessário dizer pra fórmula o primeiro (1000) é último (1011) números de sua sequência.

Como vc deve ter vários ranges dinâmicos, no anexo demonstro como resolver o problema independente do tamanho de sua lista.

Me avise.

Abs,

Deu certo aqui, muito obrigado a todos!

Apesar de já estar como resolvido, acredito que o exemplo que o Reinaldo anexou em Bibliotecas tambem ajuda :

Números Faltantes em uma range
viewtopic.php?f=21&p=40611#p40611

[]s