Soru Makro ile EğerSay Kodu Yapma

[TURKOLOG]

Herkese Merhaba Aşağıdaki makro ile A64:O64 arasındaki hücrelerde Yİ yazanları toplayı "E31" hücresine topluyorum.
ama ben aynı makroda A67:O67 arasında Yİ yazanları da sefer de toplayıp saysını "E31" hücresine tek seferde yazmak istiyorum
Yani tek sefer de A64:O64 ve A67:O67 hücreleri aralığında yazan Yİ lerin toplamını "E31"e yazacak.
Yardım edebilecek olan varsa çok sevinirim.

Sub Aylik_Harf_Hesapla()
With Sayfa30
Range("E30") = Range("P58")

.Range("E31").FormulaR1C1 = "=COUNTIF(R[33]C[-4]:R[33]C[10],""Yİ"")"

End With
End Sub

 

[veyselemre]

Denenmemiştir.

.Range("E31").FormulaR1C1 = "=COUNTIF(R[33]C[-4]:R[33]C[10],""Yİ"")+COUNTIF(R[36]C[-4]:R[36]C[10],""Yİ"")"

 

[alicimri]

Alternatif

.Range("E31").value = Application.CountIf(Range("A64:O64"), "Yİ")+Application.CountIf(Range("A67:O67"), "Yİ")

 

[TURKOLOG]

Sayın @veyselemre ve Sayın @alicimri Çok teşekkür ederim her iki kodda çalışıyor .
Elinize emeğinize sağlık.