Copy sheet contents faster in Excel
There are few places you can make this code faster and more efficient. 

Most notably, this block (repeated twice):

FileName = location &amp; file
Set wb1 = Workbooks.Open(FileName)
Cells.Copy
wb2.Activate
Sheet7.Activate
Cells.Select
ActiveSheet.Paste
wb1.Close


can be adjusted to this: 

Set wb1 = Workbooks.Open(FileName)
Set ws1 = wb1.Worksheets(1) 'make sure to Dim ws1 as Worksheet

With ws1
    'this section will grab the last row and column of actual data on the sheet, instead of copying **every** cell
    'also assumes headers in column A with no data going past left most column in row 1
    Dim lRow as Long, lCol as Long
    lRow = .Range("A" &amp; .Rows.Count).End(xlup).Row
    lCol = .Cells(1,.Columns.Count).End(xlToLeft).Column

    .Range(.Range("A1"),.Cells(lRow,lCol)).Copy wb2.Worksheets("Sheet7").Range("A1") 'change name as needed

    .Close True
End With


I'll try to do a more full review later, but have to leave now.