Jon, in 2007 this does not work, but what you can do is get the address property (parse out if it's an array) and copy just the range of the larger portion of the pivot.
tmp = pv.address
if instr(1,tmp,",") then
tmp = split(tmp,",")(1)
range(tmp).copy
then do the paste special as described