Formülü makroya dönüştürmek

[klop01]

Arkadaşlar,
=EĞER(BOŞLUKSAY('Sayfa1'!BI100:BL100)=0;4;EĞER(BOŞLUKSAY('Sayfa1'!BI100:BL100)=4;"";"Puanı var"))

Yukarıdaki formülü C8 hücresine yazıp C67 hücresine kadar sürükleyip çoğaltıyorum.
Bu formülü C8:C67 aralığı için aşağıdaki makroda çalışır hâle getirebilir miyiz?

Private Sub Worksheet_Activate()
End Sub

 

[ÖmerBey]

Merhaba,
Deneyiniz...

With Range("C8:C67")
    .Formula = "=IF(COUNTBLANK(Sayfa1!BI100:BL100)=0,4,IF(COUNTBLANK(Sayfa1!BI100:BL100)=4,"""",""Puanı var""))"
    .Value = .Value
End With

 

[klop01]

ÖmerBey,
Kod hatasız çalıştı. Yardımınız için çok teşekkür ederim.

Private Sub Worksheet_Activate()
With Range("C8:C67")
    .Formula = "=IF(COUNTBLANK(Sayfa1!BI100:BL100)=0,4,IF(COUNTBLANK(Sayfa1!BI100:BL100)=4,"""",""Puanı var""))"
    .Value = .Value
End With
End Sub

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...