ניסיון להצגת קוד VBA וכניסה לעריכה נוספת . . .
Sum_Array1 = Sum_Array1 + Application.VLookup(CL, Rng2, 2)
NextEnd Function

Function Sum_Array1(Rng1, Rng2 As Range)
For Each CL In Rng1Sum_Array1 = Sum_Array1 + Application.VLookup(CL, Rng2, 2)
NextEnd Function