وعليكم السلام
جرب الكود التالي

Option Explicit

Sub Test()
    Dim rng As Range, c As Range
    Application.ScreenUpdating = False
        Set rng = Range("A1").CurrentRegion
        rng.Copy Range("E1")
        For Each c In rng
            If c.Interior.Color = RGB(169, 208, 142) Then
                c.Offset(, 4).Value = "معيد"
            ElseIf c.Interior.Color = RGB(255, 255, 0) Then
                c.Offset(, 4).Value = "قرار"
            End If
        Next c
    Application.ScreenUpdating = True
End Sub

لا يوجد في الأكواد حدث مرتبط بعملية تغيير الألوان وحتى لو وجد لا أحبذ ذلك
قم بالعمل على بياناتك بالكامل وفي نهاية الأمر يتم تنفيذ الكود مرة واحدة لكي لا ترهق الملف وموارد الجهاز لديك

شكرا استاذي الغالي
هل استطيع اذا اضعه في موديول واضيف زر اضغطه للتنفيذ
وهل يمكن ان اضيف الكود الذي كتبته لي بخصوص تعديل درجات طلبه وفق القرار
بحيث عندما اضغط الزر يقوم باضافه القرار وبعدها يقوم بعمليه التلوين
اقصد اني ادمج الكودين بزر واحد

يمكنك تنفيذ كل كود بشكل منفصل حتى لا يحدث أي لبس في التعامل مع الكودين.