Valóban nem jól értelmeztem, ott úgy látszott, hogy egy cellában van egy sokjegyû bináris szám, abban kell megszámolni a mennyiségeket.
Így egyszerûbb a dolog, itt a makró:
Sub szam()
usor = ActiveSheet.UsedRange.Rows.Count
sz = 1
For sor = 2 To usor
If Cells(sor, 1) = Cells(sor - 1, 1) Then
sz = sz + 1
Else
Cells(sor - 1, 2) = sz
sz = 1
End If
Next
End Sub