J Joel May 16, 2008 #2 Sub CopyCells() Range("D4361:E4361").Copy _ Destination:=ActiveCell End Sub end sub