Try using the Paste Special option of pasting values not the actual formula
For example your code should include something like:
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Hope this points you in the right direction.
Graham