Sum everything in a column underneath a value of 0 in the range

[mike4777]

I need to sum everything in a column that is beneath a zero (the last 0 restarts the count). The formula I need should look at this and produce a value of 10. thanks.

1
2
5
0
5
4
1

 

[JLGWhiz]

Using VBA, assuming data is in column A.

Sub t()
Dim lr As Long, fn As Range
lr = Cells(Rows.Count, 1).End(xlUp).Row
Set fn = Range("A1:A" & lr).Find("0", , xlValues, xlWhole, xlByRows, xlPrevious)
    If Not fn Is Nothing Then
        Cells(2, 2) = Application.Sum(Range(fn, Cells(lr, 1)))
    End If
End Sub

Results in cell B2

 

[mike4777]

Please, not vba. I need the formula for the cell. Column G. Thanks.

 

[Aladin Akyurek]

Given:

[TABLE="class: grid, width: 64"]
<tbody>[TR]
[TD="width: 64, bgcolor: transparent, align: right"]1[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]2[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]5[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]0[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]5[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]4[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]0[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]2[/TD]
[/TR]
</tbody>[/TABLE]

what is the expected output?