Eventualmente dicas sobre outros programas, Windows e hardware.
Range("A1").Copy Destination:=Range("B1")
;-)