Jó reggelt! :)

Csak még annyit, hogy az összegzést így is megcsinálhatod:

TOTAL = Application.WorksheetFunction.Sum(OSSZEG)

Nem biztos, hogy a kód lefutása gyorsabb lesz, (bár gyanítom, hogy az,) de sztem elegánsabb így.