Soru Rakama Göre Renk Değiştirme

[sirkülasyon]

For d = 6 To Range("J65536").End(3).Row
    If Cells(d, "J").Value = ActiveCell.Value Then
    sat = "A" & d & ":N" & d
    Select Case ActiveCell.Value
    Case "": Range(sat).Interior.ColorIndex = 0
    Case Is = "1": Range(sat).Interior.ColorIndex = 19
    Case Is = "2": Range(sat).Interior.ColorIndex = 33
    Case Is = "3": Range(sat).Interior.ColorIndex = 35
    Case Is = "4": Range(sat).Interior.ColorIndex = 22
    Case Is = "5": Range(sat).Interior.ColorIndex = 38
    Case Is = "6": Range(sat).Interior.ColorIndex = 4
    Case Is = "Kalmadı": Range(sat).Interior.ColorIndex = 15
    End Select: End If: Next d

Kod Alıntıdır
Rakam değiştikten sonra tekrar hücreye dönerek tıklamak zorunda kalıyorum.
Rakamı değiştirdiğim zaman direk renk değiştirmesi için nasıl düzenlemem lazım.
Yardımcı olabilir misiniz?

 

[kemalist]

rakamları yazdığınız hücreye Koşullu Biçimlendirme uygulayın.