Copy entire Pivot table from one workbook to another

Hello,

i am a very new VBA writer in Excel. any help is greatly appreciated.
what i am trying to do is copy an entire pivot table from one workbook, and paste it into another. this is a subset of the entire macro i am trying to execute, but i compartmentalised it to break out this error: "Subscript out of range". i dont know what this means since i am unhiding all the rows that the pivot table is occupying. i have opened all of the workbooks in the code prior to running this set of code. i wrote most of this based on the Record Macro function in Excel 2010

Please HELP!

this is the code:

Please Login or Register  to view this content.

Nevermind, i figured out what the issue was. i was writing the code in the sheet instead of the Module of the workbook. newbie mistake