السلام عليكم و رحمة الله و بركاته 
الكود المرفق للاستاذ / ياسر خليل 
جزاكم و جزاه الله خيرا
مطلوب التعديل عليه
  1 - بحيث يقوم باللصق فى ورقة واحدة بدلا من عدة اوراق.
2- يتم يتم اختيار الملفات المطلوب نقلها بعرض الجميع فى الفورم و الاختيار من بينهم من خلال CHECK BOX. 
3- التنويه بتعليق فى الكود على بداية خلية النقل من الملفات المصدر و خلية اللصق فى الملف الهدف.
4- و لو امكن ديناميكية نطاق النسخ من الملفات المصدر و نطاق اللصق فى ملف الهدف بحيث يتم تحديدهم فى الفورم
 ( اعتقد سوف يكون افضل و يحل جميع مشاكل التعديل فى الكود ).

و جزاكم الله خيرا جميعا

Sub Test()
     Dim wb As Workbook, ws As Worksheet, sPath As String, fn As String
     Application.ScreenUpdating = False
         Application.DisplayAlerts = False
         For Each ws In ThisWorkbook.Worksheets
             If ws.Name <> "Sheet1" Then ws.Delete
         Next ws
         Application.DisplayAlerts = True
         sPath = ThisWorkbook.Path & "\"
         fn = Dir(sPath & "*.xls*")
         Do While fn <> ""
             If fn <> ThisWorkbook.Name Then
                 Set wb = Workbooks.Open(sPath & fn, , True)
                 wb.Worksheets(1).Copy After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
                 ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count).Name = Replace(fn, ".xlsx", "")
                 wb.Close False
             End If
             fn = Dir
         Loop
         Application.Goto ThisWorkbook.Sheets("Sheet1").Range("A1")
     Application.ScreenUpdating = True
 End Sub