اخى الحبيب بن عليه بارك الله فيك
ومشكورا على الرد
وفكره جديده استفدت منها
بارك الل فيك وللعلم
بعد المحاوله
نجحت فى عمل ذلك
مستخدما الطريقه التقليديه
Sheets("BALANCE").Cells(20, i).Value = WorksheetFunction.SumIf(Sheets("TOTAL").Range("E3:E50"), Sheets("BALANCE").Cells(2, i), Sheets("TOTAL").Range("Z3:Z60000"))