Excel VBA pivot table copy and pasting hangs Excel

Good day,

I create a pivot table and then simply want to copy and paste it over itself, other times it works perfectly fine but on this one it hangs Excel and I can't exit without forcing Excel to close in Task manager. I'v located the code that hangs by running through it step by step. It's highlighted in RED, the part that actually has to copy and paste. Below is the whole code:

Please Login or Register  to view this content.

Hi,

Perhaps use TableRange1 rather than TableRange2?

I do what you are doing all the time without a problem.
I assume that your pivot table exists and that it is being referred to by the correct name.
The code that is doing the copying and pasting looks fine, but try swapping it out with my minor variation
I have added a message box to provide you with the range address - it will probably tell you nothing - but worth a try
The "real" problem may lurk somewhere further up the code...

Swap:

Please Login or Register  to view this content.

With:

Please Login or Register  to view this content.