Attach the file and let me have a play.I don't have that as an option.
Set myPT = ActiveSheet.PivotTables("PivotTable6").TableRange1
With myPT.Offset(myPT.Rows.Count + 6)
.Value = myPT.Value
With .Columns(1).SpecialCells(xlCellTypeBlanks)
.FormulaR1C1 = "=R[-1]C"
.Value = .Value
End With
.Copy 'ready for pasting somewhere
End With