Hello All,

Thanks for considering my post. I have been trying to figure this out on my own, but I get an error message. So far I just have this code which is sad...

Sub blah

Dim pt As PivotTable

Set pt = ActiveSheet.PivotTables(1)

Pt.PivotFields("Item Desc").DataRange.Select

Selection.Copy
So, I got it copying all the data. I get an error message when I try to paste it to what I call sheet f. I want the data to begin to be pasted in sheet f -> starting in B3 and copying all the way down until there isn't any more data to paste. How can I make this happen?

Many Thanks!