وعليكم السلام أخي الكريم
يرجى في أي موضوع إرفاق الملف الخاص بالموضوع فقط ويكون الموضوع لطلب واحد فقط
في الملف المرفق المسمى "المجموع" غير الجزء التالي في الكود ليتحقق المطلوب إن شاء الله

    Case Is < 50
      ws.Cells(i, 35) = "راسب"
      ws.Cells(i, 34) = Empty
    Case Else

ما تمت إضافته مجرد سطر واحد فقط يقوم بمسح المحتوى في الخلية في عمود المجموع عندما يتحقق الشرط "راسب"

ws.Cells(i, 34) = Empty<br />

استاذ ياسر كيف حالك المشكلة مازالت قائمة لا حظ مادة الاحصاء في مواد الرسوب توجد لديه مادة الاحصاء والكود جمع له الدرجات 95

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

    End Select
    If ws.Cells(i, 38) <> "" Then
        ws.Cells(i, 33).Resize(1, 2).Value = Empty
    End If
Next i

اعتذر على عدم التوضيح وبارك الله فيك استاذي الفاضل

بارك الله فيك أخي الكريم والحمد لله أن تم المطلوب على خير ، والحمد لله الذي بنعمته تتم الصالحات.