Create a macro to copy formula based on certain criteria

Hello Experts,

I have mocked up some data as an example of what I'm trying to achieve.  Sadly, the data is not how I would structure it, but my hands are tied.  This data is ripe for a pivot table.  Not sure how I could clean up the data to provide a contiguous block of information to pivot off of without creating a new column for an account number.

The person I am doing this for showed me the structure I have provided here in the attached file.  I want to create a macro (Do While or Until?) that copies the formulas down but also totals by Account (the shaded rows).  Hopefully, this will be clearer when you see the mock up.

If I could assign more points, I would! Totals-macro.xlsx