Group by Data and to do Subtotal.

I need a VBA where system will consider date as parameter and based on purchase/sale should do script quantity total. Any help would be highly appreciate , refer the excel attached for better understanding for a desired output.

please help require on priority.