Boa tarde,

Se os seus dados são uma sequencia numérica, a macro abaixo identifica e relaciona o(s) valor(es) ausente(s):

Sub LocalizarAusente()
    Dim i As Integer
    Dim k As Integer
    Dim Intervalo As Range
    
    'Define a coluna "A" como origem dos dados
    Set Intervalo = [A:A]
    
    'Verifica o valor máximo da sequencia
    Max = WorksheetFunction.Max(Intervalo)
    
    'Linha inicial da relação de ausentes
    k = 1
    
    'Laço para localizar os valores ausentes
    For i = 1 To Max
        
        'Se a quantidade de determinado valor é igual 0
        If WorksheetFunction.CountIf(Intervalo, i) = 0 Then
            
            'coloca o valor na coluna de ausentes ("D")
            Cells(k, "D").Value = i
            
            'incrementa a variável que controla os ausentes
            k = k + 1
        End If
    Next
    
End Sub

Abraço

Muito obrigado! Deu certo!