Lehet, hogy már van jobb megoldásod, nem néztem végig a többiek javaslatait. A változatosság kedvéért itt egy felhasználói függvény.

Function Követési_távolság(KezdőCella As Range, Cella As Range)
Dim Hit As Range, Result As Long

With Cella
Set Hit = .EntireColumn.Find(what:=.Value, after:=Cella, LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlPrevious)
If Hit Is Nothing Then GoTo hiba
If Hit.Row >= Cella.Row Then
Result = .Row - KezdőCella.Row + 1
Else
Result = .Row - Hit.Row
End If
End With
Követési_távolság = Result
Exit Function
hiba:
Követési_távolság = "hiba"
End Function


B1-be a képlet:
=Követési_távolság($A$1;A1)

Lehúzással kiterjeszthető akármeddig. A KezdőCella az a cella, amelyikben az első számod van.