Soru otomatik renk verme

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.Range("e2:e1000").Interior.Color = Me.Range("e1").Interior.Color tabloyu ekleyemedim işçi puantajında e1:aı1 aralığındaki tarihlere göre sarı ve mavi renk veriyorum koşullu biçimlendirme .aralıktaki renk değişince sütuna hemen uygulasın istiyorum ama bu kodla renk manuel değişince çalışıyor yapamadım.

Koşullu biçimlendirme uygularsanız değere göre hemen uygular.Örnek dosya paylaşırsanız kolayça yardımcı olabilirsiniz.Altın üyeliğiniz yok ise dosya yükleme sitelerinden birine örnek dosya yükleyip linki burda paylaşabilirsiniz.