Excel VisualBasic Script

Sub CopyRange2()
    Workbooks("File1.xls").Sheets("Sheet1").range("A1").Copy Workbooks("File2.xls").Sheets("Sheet2").range("A1")
End Sub