Lille vba kode

hvis du i A1 altid starter med et 0

=SUMPRODUKT((A2:A100=1)*(A1:A99=0))*1

læg mærke til forskydningen af de 2 områder, som er flyttet en række

Hej Kabbak

Det virker fint, kan man også lave det med vba, hvor antal rækker kan være dynamisk, så jeg bare kan trykke på en knap?

Public Sub tæl()
Dim Data1 As Variant, Data2 As Variant, RK As Long, I As Long, Antal As Long
    RK = Range("C65536").End(xlUp).Row
    Data1 = Range("C2:C" & RK)
    Data2 = Range("C1:C" & RK - 1)
    For I = 1 To UBound(Data1)
        If Data1(I, 1) = 1 And Data2(I, 1) = 0 Then Antal = Antal + 1
    Next
    MsgBox Antal
End Sub


her er den lavet til C kolonnen