أخي العزيز 
هذا هو المطلوب بالضبط 
لكن 
رغم نسخ الأسطر الأربعة التي أضفتها لم تفلح محاولاتي بتطبيق العمل على الملف الأصلي 
 
            Cells(Rows.Count, 15).End(xlUp)(-1).Formula = "=SUM(RC[-10]:RC[-1])/10" 
            Cells(Rows.Count, 26).End(xlUp)(-1).Formula = "=SUM(RC[-10]:RC[-1])/10" 
            Cells(Rows.Count, 37).End(xlUp)(-1).Formula = "=SUM(RC[-10]:RC[-1])/10" 
            Cells(Rows.Count, 48).End(xlUp)(-1).Formula = "=SUM(RC[-10]:RC[-1])/10" 
 
فهل هناك شيء آخر 
 
أرجو التوضيح لأني أقوم بنقل العملية للملف الأصلي وهناك صعوبة 
 
وسؤال صغير مالفرق بين السطر الأسود والأخضر بالبرمجة؟ 
ومالفرق بين السطر العادي والسطر الذي يبتدأ بنقطة ؟ 
 
والسلام ختام