работает, НО берет данные только с первого листа книги, а их может быть до 4..  
где подправить код?  
 
Sub GetData()  
 
   Dim fso As New FileSystemObject  
   Dim aFile As File, aFolder As Folder  
   Dim wkb As Workbook, wks As Worksheet  
   Dim arr(1 To 4) As Variant  
   Dim iRow As Integer  
     
   iRow = 2  
     
   For Each aFolder In fso.GetFolder(ThisWorkbook.Path).SubFolders  
     
       For Each aFile In aFolder.Files  
           If fso.GetExtensionName(aFile.Name) Like "xls*" Then  
             
               Set wkb = Workbooks.Open(aFile.Path)  
               Set wks = wkb.Worksheets(1)  
               With wks  
                   arr(1) = .Range("e8").MergeArea.Cells(1, 1)  
                   arr(2) = .Range("g11").MergeArea.Cells(1, 1)  
                   arr(3) = .Range("d36").MergeArea.Cells(1, 1)  
                   arr(4) = .Range("e36").MergeArea.Cells(1, 1)  
               End With  
                 
               Sheet1.Cells(iRow, 1).Resize(1, 4) = arr  
               iRow = iRow + 1  
                 
               wkb.Close SaveChanges:=False  
               Set wks = Nothing  
               Set wkb = Nothing  
 
           End If  
       Next  
     
   Next  
 
End Sub