vba counting intervals between the same value

[montecarlo2012]

Hi all.
Working on

=SMALL(IF($C$2:$C$15=$E$3, MATCH(ROW($C$2:$C$15), ROW($C$2:$C$15)), ""), ROW(A1)+1)-SMALL(IF($C$2:$C$15=$E$3, MATCH(ROW($C$2:$C$15), ROW($C$2:$C$15)), ""), ROW(A1))-1

This array formula count the interval between the same value. example

I would like to see, how is possible to get the same kind of results using just For Next loop
in order to keep looking for the rest of the numbers.
Please your input really matters to me,
Thanks for reading.

 

[Zot]

This works on this small sample

Sub Interval()

Set rngData = Range("B2", "B15")

m = -1
For Each cell In rngData
    If cell = 1 Then
        Range("E2").Offset(0, m) = n
        n = 0
        m = m + 1
    Else
        n = n + 1
    End If
Next

End Sub

 

[montecarlo2012]

Thank you Zot work good