Copying Pivot Table Row Values To Another Sheet?

I'm trying to copy a certain cell range from a particular row of a pivot table to another sheet, in a loop but I do not successfully do the paste. There's no error, just no data gets pasted.

In my code currently i have:

Code:
Set Report = ActiveWorkbook.Sheets("Report")
Set Pivot = ActiveWorkbook.Sheets("Pivot").PivotTables(1)
dim size = Pivot.TableRange2.Rows.Count
for i =2 to size -1
Set currentRow = Pivot.TableRange2.Rows(i)
currentRow.Range(currentRow.Cells(1, 2), currentRow.Cells(1, 7)).Copy
Sheets("Report").Activate
ActiveSheet.Range("C" & 4 + i & ":H" & 4+ i).Select
Selection.Paste
next

Now, what does work if i select and paste the whole pivot row, but i don't want this. I've tried also with just referencing the Pivot table cells but also pasted nothing.