Excel VisualBasic Script

Sub CopyRange3()
    Set Rng1 = Workbooks("File1.xls").Sheets("Sheet1").range("A1")
    Set Rng2 = Workbooks("File2.xls").Sheets("Sheet2").range("A1")
    Rng1.Copy Rng2
End Sub