Dim i As Integer
For i = 0 To NumRuns - 1

    GetRun i, n, Schedule, SKUs

Next i

Row = Application.WorksheetFunction.Match(Val(Runs(i).RunMOA), Worksheets("Sheet1").Range(Cells(2, 1), Cells(n, 1))) - 1