Copy Method of Range Class Fail

**Gard5096** · 01-31-2013, 12:34 PM

I am getting this error when I add the PasteSpecial method to the end of this code, but when I remove it there is no error. I need to be able to paste values, why am I getting this error?

Intersect(PT.PivotFields("SUPERVISOR").PivotItems("MOE, LUCY").DataRange.EntireRow, _
    PT.PivotFields("TEMP AGE GROUP").PivotItems("> 81 Days").DataRange).Copy _
    Cells(LR, lMoe).Offset(1, 0).PasteSpecial(xlPasteValues)

**JosephP** · 01-31-2013, 12:47 PM

you cannot perform a pastespecial as the destination argument of the copy method-it has to be two stages

Intersect(PT.PivotFields("SUPERVISOR").PivotItems("MOE, LUCY").DataRange.EntireRow, _
    PT.PivotFields("TEMP AGE GROUP").PivotItems("> 81 Days").DataRange).Copy
    Cells(LR, lMoe).Offset(1, 0).PasteSpecial xlPasteValues