Add SubTotals To Data Table Based On Date

[paul_pearson]

Hi

I recorded a macro to sum up the totals when the commandbutton is selected.It is not the best code so how can I change the code so that it sums up the totals and the totals are in Bold red fonts...When I go to place more entries into the sheets can it keep the total but add the next entries on the first line after the totals..

This will be for the 3 sheets

Example sheet attached

Thanks

Paul