more efficient way to do for-loop using application.worksheetfunction.countifs

Hi,

I have a macro which takes ~ 46sec to run.

In this file:
Two sheets of data: Out_Sht, Query_sht

I use a for-loop going through each of the LotID values on the Out_Sht using an application.worksheetfunction.countifs designation to count using specified criteria (see code).

What i have works but i takes a really long time and i was wondering if there was a better way more efficient way.

Any suggestions?