استاذنا الفاضل / أحمد يوسف
التالي هو جزء من الكود الأصلي حسب شرح استاذنا ياسر أبو الخليل ويتضمن نسخ جميع أوراق العمل من داخل الملف
Do While Filename <> ""
'فتح المصنف
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
'حلقة تكرارية لكل أوراق العمل داخل المصنف النشط
For Each SH In ActiveWorkbook.Sheets
'نسخ ورقة العمل ولصقها بنهاية فهرس أوراق العمل
SH.Copy After:=ThisWorkbook.Sheets(X)
'زيادة قيمة المتغير بمقدار 1
X = X + 1
'الانتقال لورقة العمل التالية
Next SH
'إغلاق المصنف
Workbooks(Filename).Close
ما احتاج اليه هو نسخ sheet1 فقط وليس جميع الأوراق
وجزاكم الله خير على علمكم وصبركم وعطاؤكم