السلام عليكم ورحمة الله وبركاته جمعة طيبة ان شاء الله
بعد اذن الاخوة الكرام كنت عاوز تعديل على الكود 
التعديل رقم 1 : والكود وهو بيدخل ينسخ داخل الملفات وهى مغلقة  ينسخ جميع الشيتات الموجودة داخل الملفات
التعديل رقم 2 :  عاوز عند لصق البيانات تكون لصق values بدون تنسيقات او معادلات
التعديل رقم 3 : عاوز احدد داخل الكود عملية النسخ بتكون من العمود a الى العمود h 
التعديل رقم 4 : عند لصق البيانات تكون تحت بعد وميكونش فى صف فاضى اذا كان فى صفوف فارغة لا يجلبها لى وياتى بالصفوف الممتلئه تحت بعض

 Sub information()

 Dim wb As Workbook, lr1 As Integer, lr2 As Integer
 Dim fil As Variant, dat As Long

 Application.ScreenUpdating = False
 Application.DisplayAlerts = False


 lr1 = Sheets("Temp").Cells(Rows.Count, 1).End(xlUp).Row
 Sheets("Temp").Range("A10:G" & lr1 + 1).ClearContents

 INF = ThisWorkbook.Path
 fil = Dir(INF & "\*.xl??")


 Do While fil <> ""
     If fil <> "DATA.xlsm" Then

         Set wb = Workbooks.Open(INF & "" & fil)
         lr1 = Workbooks("Data").Sheets("Temp").Cells(Rows.Count, 1).End(xlUp).Row
         lr2 = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
         ActiveSheet.Range("A2:F" & lr2).Copy Workbooks("DATA").Sheets("Temp").Range("A" & lr1 + 1)
         dep = Left(ActiveWorkbook.Name, Application.Search(".", ActiveWorkbook.Name) - 1)
         Workbooks("DATA").Sheets("Temp").Range("g" & lr1 + 1 & ":g" & lr1 + lr2 - 1) = dep
         ActiveWorkbook.Close
     End If
 fil = Dir
 Loop


 Application.DisplayAlerts = True
 Application.ScreenUpdating = True

 End Sub