Autofilter and addsum

I need to write a macro that will total my data after being autofiltered

I dont mind it being to the side ie not under the last entry but if someone could tell me how to do that also that would be cool. (and if I can be cheeky, how to format it so it is double underlined and in bold)

But like I said I dont mind it not being under the list of transactions

For some reason whenever I try to do it it always totals all cells not just the ones filtered.

Cheers in advance

Yeah I probably should have looked it up myself.

Thanks for your help.

Cheers