Error while executing macro

I would do it like this:

        End If
    Next
End With
If j = 0 Then Exit Sub
With Sheets("IMO MISMATCH")
    mc = .Range("O2").Interior.Color