Guru do Excel e Power BI

Sub NumerosFaltantes()
Dim LocalInserção As Range
Dim LocaldeBusca As Range
Dim ValorProcura As Double
Dim cell As Range
Dim i As Long

Set LocaldeBusca = Range("B6:B11") 'procurar nesse intervalo
Set LocalInserção = Range("C6") 'inserir a partir da célula C6

For Each cell In LocaldeBusca
    If cell.Offset(1, 0) = "" Then: Exit For
    If cell.Offset(1, 0) - cell > 1 Then
        For i = 1 To cell.Offset(1, 0) - cell - 1
            LocalInserção = cell + i
            Set LocalInserção = LocalInserção.Offset(1, 0)
        Next i
    End If
Next cell

End Sub