Nem teszteltem, de sztem valami ilyesmi lesz:

    Sheets("SumUp").Cells(6 + 1, LastCol + 3).Formula = _
        "=IF(ISERROR(VLOOKUP(A7,orders,3,0)),""Missing"",VLOOKUP(A7,orders,3,0))"