Excel VBA PivotTables

[Tommy1370]

I have two workbooks.

Workbook A: Contains my source data on multiple worksheets; data in the form of Pivot Tables.

Workbook B: Contains multiple worksheets with empty charts.

Goal: Use the data from various pivot tables (workbook a) to populate the corresponding data points (workbook b).

I have a Sub that contains the 'populateData' code. The code works however I am looking for a *better way*. More specifically:

Sub PopulateData()

 'Data1
    Range("B29").Select
    ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""  Value COCurr"",'[WorkbookA]PIVOT_Table_1'!R3C1,""Row Descrption"",""Category1"")"
    Range("C29").Select
    ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""  Value COCurr"",'[WorkbookA.xlsx]PIVOT_Table_1'!R3C1,""Row Descrption"",""Category2"")"
    Range("D29").Select
    ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""  Value COCurr"",'[WorkbookA.xlsx]PIVOT_Table_1'!R3C1,""Row Descrption"",""Category3"")"
    Range("E29").Select
    ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""  Value COCurr"",'[WorkbookA.xlsx]PIVOT_Table_1'!R3C1,""Row Descrption"",""Category4"")"

Again, there is nothing wrong with this code. I'm looking for simplicity though. I have about 30 sets like this one that pull data from different pivot tables.

Thanks!