tenho um modelo antigo, vê se ajuda:

Uau muito bom mesmo, muitissimo obrigado !!
Para falar a verde eu não sabia q era possivel usando indice e corresp, gostaria de saber se tem como fazer por VBA tbm ?

Me lembro que quando fiz esse exemplo pra comunidade, não me lembro quem, mas fizeram em VBA...

Daqui a pouco aparece alguém aqui com a solução em VBA...

Qualquer coisa da o grito...

Bernardo, eu ateh consegui fazer em VBA, porem tem muito "gato" kkkkk
o problema eh q os numeros estão sendo salvos na outra planilha 2, e não na 1...
gostaria q ficasse tudo em uma soh planilha
ficou mais ou menos assim

Dim cont As Variant
cont = 0
Range("a2").Select

While ActiveCell <> ""
cont = ActiveCell
While ActiveCell.Offset(1, 0) <> "" And ActiveCell.Offset(1, 0) - cont <> 1
cont = cont + 1

Worksheets("plan2").Select
Range("a1000").Select
ActiveCell.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell = cont

Worksheets("plan1").Select

Wend
ActiveCell.Offset(1, 0).Select
Wend

Troque sua rotina por esta:

Sub NumerosFaltando()
Dim cont As Variant
Dim Scont As Variant
cont = 0
Scont = 2

Range("a2").Select
    While ActiveCell <> ""
    cont = ActiveCell
        While ActiveCell.Offset(1, 0) <> "" And ActiveCell.Offset(1, 0) - cont <> 1
            cont = cont + 1
        
            Cells(Scont, 2) = cont
            Scont = Scont + 1
    
        Wend
    ActiveCell.Offset(1, 0).Select
    Scont = Scont
Wend
End Sub

Ou por esta:
A diferença entre as duas é que nesta não ficamos amarrados em Ranges Fixos, podemos alterar na rotina a Linha e Coluna:

    Sub NumerosFaltando2()
        Dim Rng As Range, MyCell As Range
        Dim sLinha, sCol As Variant
        
        sLinha = 2 'Linha
        sCol = 2 'Coluna
        
        'define o Range na Worksheets("Plan1") e conta a quantidade de Itens no mesmo
        Set Rng = Worksheets("Plan1").Range("A2", Range("A" & Rows.Count).End(xlUp))
            Application.EnableCancelKey = xlDisabled
            Application.ScreenUpdating = False

            'varredura da coluna inteira de itens
            For Each MyCell In Rng.Cells
                   'Define o primeiro valor
                   Set Valor = MyCell
                   'Define o proximo Valor
                   sValorProximo = MyCell.Offset(1, 0)
                   
                While Valor < sValorProximo - 1
                    Cells(sLinha, sCol) = Valor + 1
              
                    sLinha = sLinha + 1
                    Valor = Valor + 1
                Wend
                
                sValorProximo = MyCell.Offset(-1, 1)
            Next MyCell

        'ao finalizar volta para o primeiro item
        Range("A1").Select

        Application.ScreenUpdating = True
        Application.EnableCancelKey = xlInterrupt

        MsgBox "Concluído.", vbInformation + vbOKOnly

    End Sub

[]s

Nossa !!!!
Realmente impressionante o que o excel faz !
Muito obrigado mesmo Mauro, funcionou que esta uma beleza !!
Nada como alguem inteligente neh