Kodda belirtilen alanı kopyalıyor ve o anda hangi hücre seçilmişse o alanı o hücreyi referans alarak yapıştırıyor.
Option Explicit Sub kopyalananIcerigiSeciliHucreyeYapistir() Range("A1:E1").Copy Destination:=ActiveCell End Sub