Seçilen alandaki geçerli bölgeyi seçer, kopyalar ve verilen hücreden itibaren yapıştırır.
Option Explicit
Sub AlaniKopyalaVeBaskaBirYereYapistir()
Selection.CurrentRegion.Select
Selection.Copy
Range("B20").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub