Basic method like so:
Option Explicit

Sub ImportOrders()
Dim fPATH As String, fNAME As String, NR As Long
Dim wbDATA As Workbook, Dest As Worksheet

Application.ScreenUpdating = False                              'speed up macro execution
Set Dest = ThisWorkbook.Sheets("Sheet1")                        'macro goes in master .xlsb
NR = Dest.Range("A" & Dest.Rows.Count).End(xlUp).Row + 1        'next empty row to add data

fPATH = "C:\Path\To\My\Orders\"                                 'path to import files, remember the final \
fNAME = Dir(fPATH & "*.xls")                                    'get first filename from fPATH

Do While Len(fNAME) > 0                                         'repeat loops until all files processed
    Set wbDATA = Workbooks.Open(fPATH & fNAME)                  'open found file
    With wbDATA.Sheets("Sheet1")                                'reference sheet1 on found file
        Dest.Range("A" & NR).Value = .Range("B7").Value         'transfer data
        Dest.Range("B" & NR).Value = .Range("B8").Value
        Dest.Range("C" & NR).Value = .Range("B13").Value
        .Range("E:E").SpecialCells(xlConstants, 1).Copy         'column E, spot only the numbers and copy them
        Dest.Range("D" & NR).PasteSpecial xlPasteValues, Transpose:=True
    End With
    wbDATA.Close False                                          'close the found file
    NR = NR + 1                                                 'increment to next empty row
    fNAME = Dir                                                 'get next filename
Loop

Application.ScreenUpdating = True
End Sub