To copy a range to a different worksheet or workbook, simply qualify the range reference for the destination.
Sub CopyRange2() Workbooks("File1.xls").Sheets("Sheet1").range("A1").Copy Workbooks("File2.xls").Sheets("Sheet2").range("A1") End Sub