Excel VisualBasic Script

Sub CopyCurrentRegion2()
    range("A1").CurrentRegion.Copy Sheets("Sheet2").range("A1")
End Sub