数式ではなく値だけをコピー貼り付け

PasteSpecialというのを使う

例えば、アクティブシートのA1:A3セル範囲をB1セルへ貼り付ける場合は、

Range("A1:A3").Copy
Range("B1").PasteSpecial Paste:=xlPasteValues


ネタ元