Dim lastRow As Long

With ThisWorkbook.Worksheets("Input Sched-Unsched Split")

    lastRow = .Cells(.Rows.Count, "M").End(xlUp).Row

    .Range("I15:I" & lastRow).FormulaR1C1 = _
                       "=VLOOKUP(RC[-8],'[" & combinedWorkbook.Name & "]Sheet1'!R1C1:R700000C2,2,0)"

    combinedWorkbook.Close False

End With

Dim lastRow As Long

With ThisWorkbook.Worksheets("Input List Repurch")

    lastRow = .Cells(.Rows.Count, "C").End(xlUp).Row

    .Range("D9:D" & lastRow).FormulaR1C1 = _
                       "=VLOOKUP(RC[-2],'[" & combinedWorkbook.Name & "]Sheet1'!R1C1:R700000C2,2,0)"

    combinedWorkbook.Close False

End With