Sumproduct cell range grows and calculation takes too long

[rhonalddean]

I have this Sumproduct formula below

=SUMPRODUCT(--(TEXT(AccompReport!$B$2:$B$10000,"mmm")=C$1),--(AccompReport!$F$2:$F$10000="Juan Dela Cruz")*(AccompReport!$E$2:$E$10000))

=SUMPRODUCT(--(AccompReport!$C$2:$C$10000="Assistance"),--(TEXT(AccompReport!$B$2:$B$10000,"mmm")=B$1))


that set's to this "$B$2:$B$10000" range but my records can reach beyond this range, it's more than 10,000 rows... the problem is, from this formula it took long time to calculate those... any one can help me on how to make the cell range auto adjusted?... or any way to make the caculation fast... I'm using a VBA Userform for encoding... i include "Application.Calculation = xlCalculationManual" and "Application.Calculation = xlCalculationAutomatic"... it makes a little help but still needs to wait from calculation... any help?...