Does anyone know a macro procedure that sums up all the numbers above it and shows the sum in the cell below the numbers. It's supposed to replace the exel function "=sum()".

For example sheet1 before the sum function (see sample file):


Colu. A -Colu. B

AAA ------1
AAA-------1
AAA-------1
AAA-------1

BBB ------1
BBB-------1
BBB-------1

FFF ------1
FFF-------1
FFF-------1
FFF-------1

XXX ------1

DDD-------1
DDD-------1


After executing the macro:


Colu. A -Colu. B

AAA ------1
AAA-------1
AAA-------1
AAA-------1
-----------4
BBB ------1
BBB-------1
BBB-------1
-----------3
FFF ------1
FFF-------1
FFF-------1
FFF-------1
-----------4
XXX ------1
-----------1
DDD-------1
DDD-------1
DDD-------1
------------3

Any help is highly appreciated