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:

Sub Report_Micrometer_Interchange()
    Sheets("Report-Micrometer (Interchange)").Select
    Dim a As Integer
       
    x= Range("Placement_x")

        ActiveSheet.PivotTables("PivotTable3").TableRange1.Cut
        Range("K" & x).Select
        ActiveSheet.Paste
end sub

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!

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