Split worksheet into multiples and add subtotals to each WS

I have this macro that splits one worksheet into multiple worksheets based upon content from Column A.
Does anyone know how to add subtotals to each worksheet either using this formula or by some other method that will work (other than actually going into each worksheet to do so).

Please Login or Register  to view this content.

Thank you

look right after you autofit the data, and the code is there

Please Login or Register  to view this content.

That completely worked, and blew my mind! That was awesome to see it work!

Thank you!