Pivot Table placement, cut and paste at range

Hi guys,
below is some code I am trying to troubleshoot. Essentially I am trying to place pivot tables so they do not cause errors when refreshing and bump into each other.
I have successfully moved the pivot with the code below:

Please Login or Register  to view this content.

but now I am trying to move the title directly above the pivot to another location.
When I run the below code it selects the whole range above not just the cell directly above the first column of the pivot: Please help!

Please Login or Register  to view this content.

ActiveSheet.PivotTables("PivotTable3").TableRange1.Offset(-1, 0).Resize(1, 0).Select