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

PasteSpecialというのを使う

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

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

ネタ元

• http://www.asahi-net.or.jp/~zn3y-ngi/YNxv998.html
• Excelマクロ＆ VBA基本技