وعليكم السلام يا دكتور
المفترض أن المنتدى تعليمي ولابد عند طرح موضوع أن ترينا محاولاتك من أجل الوصول للحل ، لأن المنتدى قائم على مبدأ التعلم .. ومبدأ حاول وافشل يكفيك شرف المحاولة
عموماً جرب الكود التالي ووضعت لك شرح لكل سطر من أسطر الكود من أجل الاستفادة من طريقة وكيفية الوصول لحل ، فالفكرة كلها في المنطق المحدد في تطبيق الخطوات من أجل الوصول لحل

Sub Fill_Formula_In_Merged_Cells()
    Rem رقم العمود الهدف المطلوب وضع المعادلة فيه
    Const colTarget As Long = 37
    Rem الإعلان عن المتغيرات المستخدمة في الكود
    Dim ws As Worksheet, lr As Long, r As Long
    Rem إيقاف اهتزاز الشاشة لتسريع الكود
    Application.ScreenUpdating = False
        Rem تعيين ورقة العمل التي سنتعامل معها
        Set ws = ThisWorkbook.Worksheets("Data")
        Rem تحديد رقم آخر صف به بيانات بناءً على العمود الثالث في الورقة
        lr = ws.Cells(Rows.Count, "C").End(xlUp).Row
        Rem حلقة تكرارية من الصف رقم 5 وحتى آخر صف به بيانات
        For r = 5 To lr
            Rem وضع المعادلة في العمود الهدف مع زيادة رقم الصف بمقدار 3
            ws.Cells(r, 37).Formula = "=IFERROR(COUNTIFMultiple(E" & r + 3 & ":AD" & r + 3 & "),"""")"
        Rem الانتقال للصف التالي
        Next r
    Rem استعادة خاصية اهتزاز الشاشة في نهاية الكود
    Application.ScreenUpdating = True
End Sub

جزاك الله خيرا استاذ ياسر...بارك الله فيك
والله حاولت جاهدا فيه من صباح باكرا اليوم
حتى أنني قمت بتسجيل ماكرو لذلك...
لكن عند زيادة الخلايا كان يحدث خطأ...
ولم اقم برفع المساعده الا بعد محاولات عديده...
ربنا يبارك فيك

وجزيت خيراً بمثل ما دعوت لي وزيادة
وجب عليك وضع المحاولات التي حاولتها بحيث نرى ما توصلت إليه
المهم أن الموضوع تم حله بفضل الله ، والرجاء محاولة التعلم فالأمر بسيط وليس مستحيل كما يظن الكثير من الأعضاء
الحمد لله الذي بنعمته تتم الصالحات