Compile Error "End With without With"
<p>For the code below, I keep getting the Compile Error: "End With without With"</p>

<pre><code>Sub Copy_Swivel_To_MIM_DATA()

    Application.ScreenUpdating = False

    With ActiveWorkbook.Worksheets("Swivel")
        .Columns("AC:AC").EntireColumn.Copy Destination:=Sheets("MIM Data").Range("A1")
        .Columns("J:J").EntireColumn.Copy Destination:=Sheets("MIM Data").Range("B1")
        .Columns("K:K").EntireColumn.Copy Destination:=Sheets("MIM Data").Range("C1")
        .Columns("L:L").EntireColumn.Copy Destination:=Sheets("MIM Data").Range("D1")
        .Columns("M:M").EntireColumn.Copy Destination:=Sheets("MIM Data").Range("E1")
        .Columns("N:N").EntireColumn.Copy Destination:=Sheets("MIM Data").Range("F1")
        .Columns("O:O").EntireColumn.Copy Destination:=Sheets("MIM Data").Range("G1")
        .Columns("P:P").EntireColumn.Copy Destination:=Sheets("MIM Data").Range("H1")
        .Columns("Q:Q").EntireColumn.Copy Destination:=Sheets("MIM Data").Range("I1")
        .Columns("F:F").EntireColumn.Copy Destination:=Sheets("MIM Data").Range("J1")
    End With

    With ActiveWorkbook.Worksheets("MIM Data")
        .Columns("A:J").EntireColumn.Hidden = False
    End With

    With ActiveWorkbook.Worksheets("MIM Data").Sort
        With .SortFields
            .Clear
            .Add Key:=Range("A2:A2000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            .Add Key:=Range("G2:G2000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            .Add Key:=Range("B2:B2000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            .Add Key:=Range("C2:C2000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            .Add Key:=Range("D2:D2000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            .Add Key:=Range("E2:E2000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        End With
        .SetRange Range("A2:AE2000")
        .Apply
    End With

    Worksheets("MIM QA").Columns("A:J").AutoFit

    With Sheets("MIM Data").Range("A2:AA2000")
        With .Font
            .name = "Arial"
            .FontStyle = "Regular"
            .Size = 10
            .Color = RGB(0, 0, 255)
        End With
    End With

    With ActiveWorkbook.Worksheets("MIM Data")

        Dim DelAftDis As Long
        For DelAftDis = Cells(Rows.Count, 10).End(xlUp).row To 2 Step -1

        With Cells(DelAftDis, 10)
        If .Value = "After Dispute For SBU" Then
            Rows(DelAftDis).EntireRow.Delete
        End With

        Next DelAftDis

    End With

    Application.ScreenUpdating = True
    Range("A" &amp; Rows.Count).End(xlUp).Offset(1).Select

End Sub
</code></pre>

<p>I do not understand the error message as each <code>With</code> has an associated <code>End With</code>. The lines that are indicated as the issue are these:</p>

<pre><code>With ActiveWorkbook.Worksheets("MIM Data")

        Dim DelAftDis As Long
        For DelAftDis = Cells(Rows.Count, 10).End(xlUp).row To 2 Step -1

        With Cells(DelAftDis, 10)
        If .Value = "After Dispute For SBU" Then
            Rows(DelAftDis).EntireRow.Delete
        End With ' &lt;--- This is highlighted by the debugger

        Next DelAftDis

    End With
</code></pre>

<p>Am I missing a <code>With</code> or an <code>End With</code>? If so, where should it be placed?</p>