Hi

This will do roughly what you're trying to

Range("a1").Select
ActiveCell.Copy
Range("a1").Offset(0, 2).Activate
ActiveCell.PasteSpecial

so will

Range("a3").Select
ActiveCell.Copy
Range("a3").Offset(0, 2).PasteSpecial

a better approach is

Range("a3").Copy
Range("a3").Offset(0, 2).PasteSpecial

The "active" property doesn't support "paste" you have to use
"pastespecial" (and "activesheet" is definately the wrong object :).
Using "active" and "select" tends to slow down the program a very
great deal and is best avoided unless you really need it.

hth

Keith