Excel VisualBasic Script

Sub CopyCurrentRegion2()
    Range("A1").CurrentRegion.Copy Sheets("Sheet1").Range("A1")
    Application.CutCopyMode = False
End Sub