Creating two pivot tables on same sheet - Optimize recorded macro code

Thanks a lot Holger. I will have a look at this code and will let you know of the progress.

Meanwhile there is one more issue that I'm facing.
While trying to insert the second pivot table, it is automatically taking the Grand Totals at the bottom.
Is there any way to avoid this while inserting the second pivot???

Hi, johnny_tc,

first of all the sheetname should be altered to "'Raw Data'" instead of "Raw Data".

Second: if you know the name of the PT as you have passed it in (like in the example):

    With ActiveSheet.PivotTables(cstrPT_One)
        .ColumnGrand = False
        .RowGrand = False
    End With

Ciao,
Holger