اخوانى توصلت للحل بالكود ولكن احتاج التعديل على الكود ليعمل فى اول اربع شيتات بالملف
مع خالص الشكر
Sub formula()
Range("b46:n46").formula = "=SUM(B3:B43)"
Range("b47:n47").formula = "=SUM(B7:B13,B27,B32)"
Range("n2:n44").formula = "=SUM(B2:m2)"
End Sub
الكود يعمل تمام فى شيت واحد احتاج تطبيقه فى اول اربع شيتات مرة واحدة