Sub МояМакроса()
Const стр_Лист_С_Данными = "Лист1"
Const стр_Столбец_Со_Столбцами = "A"
Const стр_Столбец_Результатов = "B"

Dim длА As Long
Dim длБ As Long
Dim целВ As Integer
Dim булГ As Boolean

With Worksheets(стр_Лист_С_Данными)
    длБ =  0 
    целВ =  1 
    булГ = False
    .Range(стр_Столбец_Результатов & ":" & стр_Столбец_Результатов).ClearContents
    For длА = .UsedRange.Row To .UsedRange.Row + .UsedRange.Rows.Count -  1 
         If .Range(стр_Столбец_Со_Столбцами & CStr(длА))( 1 ).Value2 <> "" Then
             If булГ Then
                 длБ = длБ +  1 
             Else
                 булГ = True
                 длБ =  1 
             End If
         Else
             If булГ Then
                 .Range(стр_Столбец_Результатов & CStr(целВ))( 1 ).Value2 = длБ
                 длБ =  0 
                 целВ = целВ +  1 
                 булГ = False
             End If
         End If
    Next длА
End With

End Sub