Find breaks in a sequence of numbers

[elsg]

I would like to run a macro that breaks search following numbers in a selected column, and display
the missing numbers:


Eg


before:


COLUMN A


in 1000
in 1001
in 1002
in 1004
in 1005
in 1006
in 1010
in 1011


then:


COLUMN B


in 1003
in 1007
in 1008
in 1009

 

[Gary's Student]

How about:

Sub marine()
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

 

[elsg]

Hi.

Thank you!!!