بعد اذن الاستاذ ياسر هذا الكود يقوم بترحيل دون اظهار الملف المرحل الية
"Workbooks.Open Filename:="e:\book2.xlsm
Windows("book2.xlsm").Activate
Workbooks("book2.xlsm").Sheets(1).Range("a1:j" & Cells(Rows.Count, "a").End(xlUp).Row).Copy
Workbooks("book1.xlsm").Activate
Workbooks("book1.xlsm").Sheets(1).Range("a" & Rows.Count).End(xlUp).Rows.Offset(1, 0).Select
Selection.PasteSpecial xlPasteValues
Workbooks("book2.xlsm").Save
Workbooks("book2.xlsm").Close