Guru do Excel e Power BI

tenho algumas colunas com mais de 5000 linhas ex.:
1
2
3
5
1
2
3
7
9
1
preciso de uma macro para saber qual o maior intervalo que ficou sem aparecer o número 1

Bom dia.
Considerando seus dados na coluna "A" (Pode ser outra, neste caso devera mudar a macro)), a partir de A2.....An.

Sub MaiorIntervalo()
Dim c As Range, mi As Long, mf As Long, k As Long
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
If [a1] = "" Then [a1] = "X"
ActiveSheet.[a1].AutoFilter 1, 1
mi = 1
For Each c In Range("a2:a" & Cells(Rows.Count, 3).End(3).Row).SpecialCells(xlVisible)
If c.Row - mi > k Then k = c.Row - mi - 1
mi = c.Row
Next c
ActiveSheet.AutoFilterMode = False
MsgBox "MAIOR INTERVALO = " & k
End Sub

Veja se funciona.
Até
Foxtri

não funcionou, está mostrando maior intervalo sempre 0

É só alterar: para
pequeno engano do @Foxtri, em vez da coluna "C" deve ser a coluna "A"