Copying data from various sources into a master list
This: 

With ThisWorkbook.Sheets("Orderlist P25 2017")
Range("Z10").Formula = "=VLookup(C10,  '" &amp; vbaPath &amp; vbaFile &amp; Orderlist2017 &amp; "'!C14:Z90, 8, False)"
Range("Z10").Select
    Selection.Copy
    Range("Y10").Select
    Selection.End(xlDown).Select
    Range("Z85").Select
    Range(Selection, Selection.End(xlUp)).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False

End With


might work changed to that: 

Range("Y10:Z85").FormulaR1C1 = "=VLookup(RC[-23],  '" &amp; vbaPath &amp; vbaFile &amp; Orderlist2017 &amp; "'!R[4]C[-23]:R[80]C, 8, False)"


Mastering the R1C1 reference style will change the way you deal with formulas on the VBA side. For more details, read my blog post here. 

In addition, your With / End With logic is useless since you don't have any references to it (e.g. a .Range)