Sub NoMatch()
Dim iEnd As Integer
Dim c As Range
Dim rng As Range
iEnd = Sheets("A").Range("CC1").End(xlDown).Row
Set rng = Sheets("A").Range("CC1:CC" & iEnd)
For Each c In rng
If c < Sheets("B").Range(c.Address) Then c.Interior.ColorIndex = 6
Next c
End Sub