Pivot Table placement, cut and paste at range

I worked it out
Using named ranges in the first column of the header row made it simpler for me.

Sub Report_Micrometer_Interchange()
' Report_Micrometer_Interchange Macro
    Sheets("Report-Micrometer (Interchange)").Select
    Dim x As Integer
    
    x = Range("Placement_X")
  
    Range("Report_IM_MZero").Offset(-1, 0).Select
    Selection.Cut
    Range("B" & MicrometerZero).Offset(-1, 0).Select
    ActiveSheet.Paste

    ActiveSheet.PivotTables("Pivot_IM_MZero").TableRange1.Cut
    Range("B" & MicrometerZero).Select
    ActiveSheet.Paste
End Sub

Thanks