値だけコピー
http://www.happy2-island.com/excelsmile/smile03/capter00505.shtml
Range("A1").Copy Range("A2").PasteSpecial Paste:=xlPasteValues
http://www.happy2-island.com/excelsmile/smile03/capter00505.shtml
Range("A1").Copy Range("A2").PasteSpecial Paste:=xlPasteValues