Help Required : Random Sampling of Data

[anish.ms]

Hi Paul!,

It is almost ready after 2 months to share with my team members. Thanks for your continued help so far.
I have made few changes in codes to facilitate the option of picking samples from selected strata in list box by adding the selected values to an another collection called "StrataList2".
I request your help in the following -

View statistics is taking long time if the number of strata values are more. For example, "NetAmt" in the sample file attached. Is there any alternate way other than the currently used countif to load the statistics faster?

cntArray = Application.CountIfs(rRange, StrataList(iStrata))

Thanks in advance!