I have the following code (courtesy of this newsgroup) which works fine
other than it copies the formulas, rather than the values, - which are what
I require.
I am sure it needs the equivalent of paste special but I don't know how to
achieve that.

"Set SourceRange = Sheets("RecordOfRoundsDetailed").Range("A45:FK45")

   Set DestSheet = Sheets("RecordOfRoundsDetailed")

   Lr = LastRow(DestSheet)

   Set DestRange = DestSheet.Range("A" & Lr + 1)

   SourceRange.Copy DestRange"

All help appreciated.
Sandy