Elegant way to create multiple Pivot Table

Hi,

I am currently trying to create a multiple pivot tables in one sheet.

The current formula to make a single pivot table that i am using is

Formula:

Please Login or Register  to view this content.

The current problem i have is... i need to Dim PT01 as pivottable, Dim PT02 as pivottable, Dim PT03 as pivottable and so on.... Repetition is not good!

and secondly,the total pivot table is not constant each week. During busy week, i need to create 8 pivot table and in a slow week, it can go down to 5.

See below of my current formula...

Formula:

Please Login or Register  to view this content.

Can anyone suggest me how to create pivot table in a better way?

Thanks
Lex