Dave Peterson wrote:
Copy|paste special|values (the copy won't be a pivottable anymore).

Then use one of the techniques at Debra Dalgleish's site to fill in those empty
cells:
http://contextures.com/xlDataEntry02.html


Hi

Thanks for your help on this. I recorded a macro to copy and paste the
pivot table then tried to amend it to get the data I required. I could
get some of the data but not all at the same time. It was all getting
a bit messy. In the end I found another way:

x = pt.RowRange gives an array of values in the row area (Order no. &
Activity Code)

y = pt.DataBodyRange gives an array of values in the data area (Time)

Then it was easy to iterate through the arrays copying the values to
the other workbook.

Also thanks for the link, I've used your FillColBlanks routine to fill
the blank Order numbers.