Спасибо большое за ответ Казанский! Я вот на этом форуме нарыл такой макрос, который исполняет задание без открытия каждого нового файла вручную, можете объединить Ваш макрос и вот этот,?  
 
Attribute VB_Name = "Module1"  
Option Explicit  
 
Sub CollectInfo()  
Dim BazaWb As Workbook 'текущая книга (общий файл)  
Dim BazaSht As Worksheet 'лист Price-group в общем файле  
Dim iTempFileName As String 'имя поочерёдно открываемого файла  
Dim iPath As String 'путь к папке, где лежат все файлы  
Dim iLastRowBaza As Long 'последняя заполненная строка в общем файле в столбце C  
Dim iLastRowTempWb As Long 'последняя заполненная строка в по-очерёдно открываемом файле в столбце C  
Dim iNumFiles As Long 'количество открываемых файлов  
 
   With Application  
       .ScreenUpdating = False  
       .DisplayAlerts = False  
       .Calculation = xlManual  
       Set BazaWb = ThisWorkbook  
       Set BazaSht = BazaWb.Sheets("Price-group")  
       iPath = BazaWb.Path & "\"  
       iTempFileName = Dir(iPath & "*.xls")  
       Do While iTempFileName <> ""  
           If iTempFileName <> BazaWb.Name Then  
               With .Workbooks.Open _  
                    (Filename:=iPath & iTempFileName, UpdateLinks:=False, ReadOnly:=True)  
                    iNumFiles = iNumFiles + 1  
                    'Рабочая книга не должна быть защищена паролем  
                    With .Worksheets(1)  
                         iLastRowTempWb = .Cells(Rows.Count, 3).End(xlUp).Row  
                         iLastRowBaza = BazaSht.Cells(Rows.Count, 3).End(xlUp).Row + 1  
                         .Range(.Cells(9, 1), .Cells(iLastRowTempWb, "P")).Copy Destination:=BazaSht.Cells(iLastRowBaza, 1)  
                    End With  
                    .Close saveChanges:=False  
               End With  
           End If  
           iTempFileName = Dir  
       Loop  
       .Calculation = xlAutomatic  
       .DisplayAlerts = True  
       .ScreenUpdating = True  
   End With  
   MsgBox "Информация собрана из " & iNumFiles & " файлов!", vbInformation, "Конец"  
End Sub  
 
В это макросе каким-то для меня чудным образом, вытаскиваются данные из файлов которые находятся в одной папке, без открытия каждого вручную. Помогите если можете, спасибо.

Igor67 здравствуйте, извините я не знал что макрос работает со множеством выбранных файлов. Большое спасибо Казанскому и Вам, пусть Бог вас благословит.

Уважаемый форумчанин Казанский, Вы же писали эту формулу, может поможете ее чуток доработать? Заранее благодарю.

Витамин, можно и доработать, вот только что такое первый лист? как копировать нужные ячейки. Не стесняйтесь, покажите конечную хотелку и несколько файлов исходных. А отсутствие ответа - форум висит, и больше Вам писать чем код править:(