Set Values Of Pivot Table On Itself

Is it possible to set the values of a pivot table over itself?

For normal cells in a range I would use something like this:

VB:
LR = Range("A1").End(xlDown).Row
Range("A1:F" & LR) = Range("A1:F" & LR).Value

When I try and use the same code on a pivot table it gives a RTE '1004': Cannot enter a null value as an item or field name in a PivotTable report.

Does any adaption to use the value of the PivotTable rather than using copy/paste values?