code vba lỗi

Dear các anh chị ! Em có 2 file excell. và em muốn copy dư lieu từ 1 sheets của 1 file sang 1 sheet của activeworkbooks em có dùng đoạn code dưới đây nhưng máy báo lỗi "run time error 9" Các anh chị chỉ giùm em ạ. Thêm nữa là có cách nào copy du liệu mà không cần lệnh mở file không ạ. Sub...