Count unique value from a date range with multiple criteria by vba

Dear Expert,
To find out unique value from a date range considering criteria now i am using below formula. But those formula is very difficult & much bigger, when i use this formula multiple time in my same sheet then sheet will go down with very slow speed & finally sheet is not workable smoothly, but i need to use this formula in my sheet so many time like 20/30 times. So need any other solution like VBA or customize formula or any other that will not much impacted to my sheet size or working speed.

Below is my formula & Attached file for your ref where i use this formula on c4 cell.

Please Login or Register  to view this content.

Please help me in this regards

thanks wahid

See if this is fast enough.
1) To a Standard code module

Please Login or Register  to view this content.

2) to Sheet1 code module

Please Login or Register  to view this content.

Dear Jindon,
Please explain me how t use of above post 2. Actually i am not understand properly how to use this.

Just input/change the value in B1 of Sheet1.