Pivot Table graph looses formatting after running formatting macro

I recorded a macro to preserve PT formatting. ( the code is rather dirty)
When opening the wbook, the macro fires and formats but when it's all finished the PT reverts to default formatting.
( tried the same kind of thing on another and all went well)

Odd thing is, after it's done, the word "calculate" appears underneath the window.
I added the wbook -

Thx for the help