Copy method can use an argument for the destination range
Sub CopyCurrentRegion2() Range("A1").CurrentRegion.Copy Sheets("Sheet1").Range("A1") Application.CutCopyMode = False End Sub