Copy multiple pivot tables to new sheet

Hello,

I'm trying to create a macro that will copy multiple pivot tables and paste them one after another, onto a new worksheet. This is what I have so far:

Please Login or Register  to view this content.

It works for 1 pivot table, but I'm not sure what the code should be for the next pivot table.

Thank you in advance
-Johnathan

Found the solution!

Please Login or Register  to view this content.