Buda diziler ve Dictionary ile yapılmış hali.
Sanırım hız olayında pek farketmedi son kod ile karşılaştırmada.
Kolay gelsin.

Sub renklendir()



    Dim son As Long, i As Long, k As Byte

    Dim syfteyit As Worksheet, dict As Object, dizi(), dizi2()

    Dim syfAnaSayfa As Worksheet

    

    Set syfteyit = ThisWorkbook.Sheets("Teyit")

    Set syfAnaSayfa = ThisWorkbook.Sheets("Anatablo")

    Set dict = CreateObject("Scripting.Dictionary")

    

    With syfteyit

        son = .Range("A" & Rows.Count).End(3).Row

        If son < 2 Then son = 2

        dizi = syfAnaSayfa.Range("A2:R" & son).Value

        dizi2 = .Range("A2:R" & son).Value

        .Range("A2:R" & son).Interior.ColorIndex = xlNone

        Application.ScreenUpdating = False

        For i = 1 To UBound(dizi)

            dict.Add dizi(i, 1), i

        Next



        For i = 1 To UBound(dizi)

            If dict.Exists(dizi2(i, 1)) Then

                For k = 2 To UBound(dizi, 2)

                    If dizi2(i, k) <> dizi(dict(dizi2(i, 1)), k) Then .Cells(i + 1, k).Interior.ColorIndex = 3

                Next

            End If

        Next

        Application.ScreenUpdating = True

    End With

    Set syfteyit = Nothing

    Set syfAnaSayfa = Nothing

    Erase dizi: Erase dizi2

    Set dict = Nothing



End Sub