Sıra numarası atlayınca uyarı ver

[thunder06]

Arkadaşlar merhaba.
Sütun boyunca sıralanan yaklaşık 6500 adet proje no var. bu proje numarlarında bazen atalama yapılmış. örneğin
proje No Firma
147 x
148 y
150 z gibi. burada Hangi numaranın atlandığını nasıl bulabilirim. Teşekkürler.

 

[hamitcan]

Sub OlmayanlariBul()
For i = 1 To 6500
    If WorksheetFunction.CountIf([a1:a10], i) = 0 Then
    c = c + 1
    Cells(c, 2) = i & " nolu Proje Yok"
    End If
Next
End Sub