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