Sub Macro2()
Dim l&, i&
Application.ScreenUpdating = False
l = Cells(Rows.Count, 2).End(3).Row
On Error Resume Next
For i = 10 To l
If Not Cells(i, 2) = Application.VLookup(Cells(i, 1), Range("$X$5:$Y$25"), 2, 0) Then
Cells(Application.Match(Cells(i, 1), Range("$X$5:$X$25"), 0) + 4, "Y").Interior.Color = 16751103
End If
If Not Cells(i, "M") = Application.VLookup(Cells(i, 1), Range("$X$5:$Z$25"), 3, 0) Then
Cells(Application.Match(Cells(i, 1), Range("$X$5:$X$25"), 0) + 4, "Z").Interior.Color = 16751103
End If
Next
End Sub