Organize all Pivot table in all sheet in a workbook

[cooolboy]

I have few sheets in a workbook with many pivot tables. All pivot tables in sheet are arrange one after another (Row wise). As the sizes of the pivot table are not fixed, I couldn't fix the positions of 2nd, 3rd, 4th....pivot table and so manually go to everysheet and hide/unhide rows between the pivot table as required.

I have found references to find out the last and first cell of each pivot table as below, but I couldn't get a logic of how to organize all tables one after another.

With PT.TableRange1
lngLastRow = .Rows(.Rows.Count).Row
end with

Appreciate your help.

Regards

 

[cooolboy]

Any Help?