Function tata&(r As Range, n&)
Application.Volatile
Dim i&, m&, a#, b#, x&
For i = 2 To r.Count
If IsNumeric(r(i)) And r(i) <> "" Then a = r(i) Else a = 1.79769313486231E+308
If IsNumeric(r(i - 1)) And r(i - 1) <> "" Then b = r(i - 1) Else b = 1.79769313486231E+308
If Abs(a - b) = 1 Then m = m + 1 - (r.Count = i) Else x = x - (m = n - 1): m = 0
Next
tata = x - (m = n)
End Function