Macro -- Copying Pivot Table and Changing Row Labels

Hola! Using Excel 2007 on Windows 7 64 bit. Familiar with using macros, but no idea how to write my own VBA -- only make very minor edits to existing code.

I attempted to record a macro to copy a pivot table with many row labels, multiple times on the same sheet. I then want to remove all but one Row Label, then repeat until I had individual tables with only one row label each. The issue is that this macro refers to each pivot table by its name statically (PivotTable148) and does not work when moving to a new sheet. How can I reference them dynamically?

Example code from my recorded macro below. I need the bold items to be updated dynamically. Or a totally new way to approach this Please and thank you! I'd be happy to PayPal a cup of coffee to anyone who can help! I'll need to do this regularly in my new position.

ActiveSheet.PivotTables("PivotTable7").PivotSelect "", xlDataAndLabel, True
    Selection.Copy
    Range("I2").Select
    ActiveSheet.Paste
    ActiveSheet.PivotTables("PivotTable239").PivotFields("Product Code Description" _
        ).Orientation = xlHidden
    ActiveSheet.PivotTables("PivotTable239").PivotFields("Base Model Number"). _
        Orientation = xlHidden
    ActiveSheet.PivotTables("PivotTable239").PivotFields("ARM").Orientation = _
        xlHidden
    ActiveSheet.PivotTables("PivotTable239").PivotFields("BACK").Orientation = _
        xlHidden
    ActiveSheet.PivotTables("PivotTable239").PivotFields("CONTROL").Orientation = _
        xlHidden
    ActiveSheet.PivotTables("PivotTable239").PivotFields("BASE").Orientation = _
        xlHidden
    ActiveSheet.PivotTables("PivotTable239").PivotFields("FABRIC").Orientation = _
        xlHidden
    Range("P2").Select
    ActiveSheet.Paste
    ActiveSheet.PivotTables("PivotTable240").PivotFields("Product Code Description" _
        ).Orientation = xlHidden
    ActiveSheet.PivotTables("PivotTable240").PivotFields("ARM").Orientation = _
        xlHidden
    ActiveSheet.PivotTables("PivotTable240").PivotFields("FINISH").Orientation = _
        xlHidden
    ActiveSheet.PivotTables("PivotTable240").PivotFields("FABRIC").Orientation = _
        xlHidden
    ActiveSheet.PivotTables("PivotTable240").PivotFields("CONTROL").Orientation = _
        xlHidden
    ActiveSheet.PivotTables("PivotTable240").PivotFields("BASE").Orientation = _
        xlHidden
End Sub