Hi, I wondered if anyone could help with the below
The spreadsheet below has 3 columns . IN the 3rd there are totals for each group of accounts.
I need a VBA macro that goes in and finds the blank cell and sums the amounts above that .

The macro I am using either sums those above completely or sums the 6 above when in some case there are 7 rows to be added.

A AA 50.00
A AA 50.00
A AA 25.00
A AA 40.00
A AA 20.00
A AA 10.00

B BB 11.00
B BB 15.00
B BB 2.00
B BB 3.00
B BB 4.00
B BB 5.00
B BB 6.00

C CC 1.50
C CC 2.60
C CC 3.60
C CC 5.00
C CC 10.00
C CC 15.00
C CC 20.00
C CC 25.00
C CC 30.00
C CC 35.00
C CC 100.00
C CC 1,000.00


Macro I am using now (that doesn't work !)

Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "=SUM(INDIRECT(""R1C""&COLUMN()&"":R""& (ROW()-1)&""C""&COLUMN(),FALSE))"
Selection.Font.Bold = True

Thank you very much