Hi. As FileSearch doesn't work in Office 2007, I am trying to use royUk's code (see below) to copy cells from workbooks in a directory to one summary worksheet. The code works perfectly to step through the files in the directory and allows me to copy one cell at a time from the opened workbook to my summary workbook, but I can't get it to copy more than one cell at a time per line of code.

I would like to also copy a fixed range A13:J27 from each opened workbook to cells Ax:Jx (where x will increment by 14 each time) on my summary sheet in one go and not have to copy that range cell by cell. Is this possible?

Sub Open_All_Files()
Dim oWbk As Workbook
Dim w As Worksheet
Dim sFil As String
Dim sPath As String
Dim k As Long, n As Long
sPath = "C:\Downloads\Invoices\" 'location of files
ChDir sPath
sFil = Dir("*.xls") 'change or add formats
k = ThisWorkbook.Sheets(1).Range("A65536").End(xlUp).Row                     'finds number of last used row
    n = k + 1                                               'adds 1 row to set next empty row
Do While sFil <> "" 'will start LOOP until all files in folder sPath have been looped through  'opens the file
    Set oWbk = Workbooks.Open(sPath & "\" & sFil)
    Set w = ThisWorkbook.Sheets(1)
        ThisWorkbook.Sheets(1).Range("K" & n + 1) = oWbk.Sheets(1).Range("I5")         
        ThisWorkbook.Sheets(1).Range("L" & n + 1) = oWbk.Sheets(1).Range("I6")          

oWbk.Close True 'close the workbook, saving changes
sFil = Dir
Loop ' End of LOOP
End Sub
Any help will be greatly appreciated.
Thanks,
Bruce