Experimente esta macro curta:
Sub HighLighter()
For i = 1 To 9999
If Cells(i, 1) <> Cells(i, 2) Then Range(Cells(i, 1), Cells(i, 2)).Interior.ColorIndex = 27
Next i
End Sub
Resultado típico:
Altere o 9999 para atender às suas necessidades.