Returning values instead of function in Transpose Macro

Hello,

I'm a VBA & macro rookie (just started this weekend), and I found a macro on this website to tranpose data that a pivot table can more readily use.

I've modified it to the point where it almost works, except that it returns the function from the source data, rather than the values. I need the latter.

I'm sure there is a simple command that will perform this, but given my naivete, and after searching several sources, I humbly throw in the towel.

Here's the code:

' Copy the data for this month to column D
Range(ThisCol & "4:" & ThisCol & FinalRow).Copy _
Destination:=Sheets("OutTranspose").Range("D" & NextRow

The source data is a Vlookup function, referencing another worksheet. I want to transpose the "values only", so that I can port it to a pivottable.

Many Thanks,

Tom