tæl sammenhængende antal udfyldte celler

Sub TaelSammenh()
    Dim c As Range
    Set c = Range("A3")
    Dim tæller As Long
    Do
        tæller = tæller + 1
        If c.Offset(1, 0).Value2 = "" Then
            c.Offset(0, 1).Value2 = tæller
            tæller = -1
        End If
        Set c = c.Offset(1, 0)
    Loop Until c.Value2 = "" And c.Offset(1, 0).Value2 = ""
End Sub