Incorporated Until empty cell with sum function

[chaz1010]

Hi Team,

Hope you are well. I have a spreadsheet with values in column as per below

A1 = 100, A2 = 150, A3 = empty, A4 = 250, A5 = 125, A6 = empty, A7 = 220, A8 = 90, A9 = 100, A10 = empty, A11 = empty

I need to created a loop funcion with a sum function incorporated in it. So that once it get executed, the empty values get populated as per below:

A3 = A1 + A2 = 100 + 150 = 250

A6 = A4 + A5 = 250 + 125 = 375

A10 = A7 + A8 + A9 = 220 + 90 + 100 = 410

But once there is two empty cells, i want the loop to exit. Please note the value between the empty cells in Column can vary, but no more than 10. Maybe I need to use a array to store the values and then output the sum of the array values.

Im really confused and any help on this would be great

Thanks Guys

Chaz

[sxn]

Sub AutoSum()
     For Each NumRange In Columns(ActiveCell.Column).SpecialCells(xlConstants, xlNumbers).Areas
        SumAddr = NumRange.Address(False, False)
        NumRange.Offset(NumRange.Count, 0).Resize(1, 1).Formula = "=SUM(" & SumAddr & ")"
        c = NumRange.Count
    Next NumRange
End Sub

[chaz1010]

Thanks for your help, It woked a treat!