=x/0 değeri olan hücredeki hata

merhabalar

A1 ile U22 arası hücrelerde verilerim mevcuttur.
bazı hücrelere manuel sayısal değerler giriyorum ve bu girdiğim sayısal değerlere göre başka hücrelere bazı matematiksel sonuçlar yaptırıyorum(Toplama,çıkarma,bölme gibi)

Benim sorunum bölme işleminde olmaktadır.
Örneğin S8 hücresinde Q18 ve P18 değerlerinin bölme işlemi sonucunu yansıtıyorum
bunu formülle gösterecek olursam S8 hücresine =Q18/P18 yazıyorum
eğer Q18 ve P18 hücresinde 0 dan farklı değerler varsa sıkıntı yok
fakat P18 hücresinde 0 değerini girmişsem S18 hücresinde #SAYI/0! hatası karşıma çıkıyor
bu hatayı S8 hücresine =EĞERHATA(Q18/P18;0) yazarsam hücreye 0 sonucunu yazdırıyorum

Fakat ben buradaki matematiksel formülleri vba makro düzeneğine uyarladım
makro düzeneğinde bu hücrede yine bu formül gibi 0 değerini yazdırma işlemini nasıl yaparım

gerçi ben örnek olsun diye sadece S8 hücresini verdim ama S8 de olduğu gibi a1:U22 arasında bir takım hücrelerde yine bölme işlemleri mevcut. ve bu bölme işleminin sonucunu hücreye bölen kısmı 0 ise hücre değerine hata vermeden 0 yazsın istiyorum

bu bölme işlemlerimin olduğu bir kısım makro kodlarını aşağıda gönderiyorum. <----------- işareti ile gösterdiğim satırda IfError komutunu kullanarak S18 hücresine 0 yazdırayım istedim fakat kod düzeneği hata vermektedir.

konuyla ilgili bilgi ve yardımlarınızı rica ederim