وعليكم السلام اخي الكريم
الأكواد ليست جيدة بما فيه الكفاية

قم باستبدال السطر التالي بالأسطر التالية ليقوم الكود بعد القيم في النطاق المطلوب أولا فإذا قمت بإدخال كل القيم قام الكود بالجمع

Cells(i, 13).Value = Application.WorksheetFunction.Sum<br />

            Dim rng As Range
            Set rng = Range(Cells(i, 9), Cells(i, 12))
            If Application.Count(rng) >= 4 Then
                Cells(i, 13).Value = Application.WorksheetFunction.Sum(rng)
            Else
                Cells(i, 13).Value = Empty
            End If

شكر استاذ ياسر للمساعدة وسرعة الرد لكن الكود ايضا بعد استبداله يقوم بحذف الدرجات الموجودة في العمود m7:m46 في حال لم نقم بادخال تفاصيل الدرجات في النطاق من i7:l46 .الذي اريد الوصول اليه انه في حال وجود درجات في النطاق i7:l46 يقوم بجمعها وفي حال عدم وجود درجات في النطاق i7:l46 فقط توجد في العمود m7:m46 يقوم بجمعها مع الدرجة الموجودة في العمود h7:h46 ويضع النتيجة في العمود n7:n46 .مع جزيل الشكر والاحترام لشخصك الطيب