Guru do Excel e Power BI

Sub EncontrarDatasPerdidas()

Dim Data As Date 'Data Analisada

Dim Intervalo()
Dim i As Long, j As Long

ReDim Intervalo(2 To Range("C:C").SpecialCells(xlCellTypeConstants).Count)

'Transferir dados
For i = 2 To UBound(Intervalo)
    Intervalo(i) = Cells(i, 3)
Next i

For i = 2 To UBound(Intervalo)
    If IsDate(Intervalo(i)) Then
        Data = Intervalo(i)
        For j = i + 1 To UBound(Intervalo)
            If Intervalo(j) < Data Then
                Cells(i, 4) = "Verificar"
                Exit For
            End If
        Next j
    End If
Next i

MsgBox ("Operação concluída.")

End Sub