display sum of bold font amounts in a column in the lowest cell in the column

Hi,

I have a sheet with amounts and subtotals. The subtotals are in bold font. I would like to create a macro that adds all amounts that have a bold font (the subtotals) in a certain column and put it in a certain cell below in the column. I get stuck with my own macro. Is it possible to write a macro like this ?

Any input is much appreciated!

Please Login or Register  to view this content.

How about

Please Login or Register  to view this content.