Tæl sammenhængende serier af data.

Jeg har en kalender med 365 dage i kolonner, og et antal rækker som hver repræsenterer mine data

Datoer > 01.01  01.02 ......
Bruger A
Bruger B
Bruger C

For hver bruger står der værdien 1 i een eller flere af datoerne for året

Nedenstående makro benyttes til at tælle forekomster af sammenhængende datointervaller hvor der er  >= 6 dage hvor værdien 1 optræder her over året, - dette virker efter hensigten, men jeg har også behov for at vide summen af 1-taller i de fundne perioder ...

Den kan jeg ikke lige greje :-(

Public Sub test()
Dim A, B, C, D As Long
For A = 9 To 150 ' start 9. række slut 150. række
C = 0 'antal sammenhængende celler
D = 0 ' antal områder af sammenhængende celler
For B = 3 To 368
If Cells(A, B) = 1 Then
C = C + 1
Else
If C >= 6 Then
D = D + 1
End If
C = 0
End If
Next
Cells(A, 1) = D
D = 0
Next
End Sub