VBA da seçtiğim hücrelerdeki rakamlar istenilenden büyük ise kırmızı olsun

[oboran]

Merhabalar,
VBA da Sayfa1 de D15:D65000 içerisindeki hücrelerin,
130 ile 139 arasında ise Kırmızı
140 ile 149 arasında ise Koyu Kırmızı
149 dan büyük ise Koyu Kırmızı, İtalik yazı ve hücre içi Seyrek Nokta Dolgulu
olmasını istiyorum.
Rakamlardan anlaşılacağı üzere Tansiyon ölçümleri verisinde yüksek olanları vurgulamaktır.
Koşullu biçimlendirmede yaptığım da Excel bir süre sonra şişme yapıyor ve dosyayı açmıyor.
Bunun nedeni de veriler yukarı dan aşağı satır aç ile kopyalanarak yapılması.
Şimdiden yardımlarınız için teşekkürler.