Somar com SE e ATÉ Relacionados

[joaobatistafh]

quero fazer uma soma que é o seguinte: se na coluna A o valor for 0, então somar B, na mesma linha, até que na coluna A encontre o valor 1. 
Exemplo:
O resultado deve aparecer na caixa em amarelo.
A célula B1 vai somando as que estão embaixo dela enquanto o valor da coluna A seja igual a 0. Aí depois a célula B5 vai fazer isso e assim por diante.
O número de linhas varia bastante, por isso não é uma =SOMA() simples.

A fórmula das células da coluna B ficariam assim:

=SE($A1=1;SomaValoresAbaixo();RecebeOsValoresDaOutraPlanilha());

Acredito que só resolva com VBA, mas não sei programar nessa linguagem..

Obrigado desde já!

[Alyson Ronnan Martins]

Boa noite. Não sei se vai funcionar ai mais aqui foi de boa.
 

Public Sub Comando()
Dim Ulinha As Long 'Armazena o ultima linha
Dim Soma As Double 'Armazena a soma
If Range("A1").Value <> "" Then 'Se a celula A1 não for vazia
Ulinha = Cells(Rows.Count, 1).End(xlUp).Row 'Identifique a ultima linha
For x = Ulinha To 1 Step -1 'Fazer uma contagem regressiva entre as linhas
    If Cells(x, 1).Value = 0 Then
        Soma = Cells(x, 2).Value + Soma
    ElseIf Cells(x, 1).Value = 1 Then
        Cells(x, 2).Value = CDbl(Soma)
        Soma = 0
        Range("B" & x).Select
        With Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .Color = 65535
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
    End If
Next x
End If
End Sub