Get Max and Min value for Selective date

Hi
I am having excel work book with two sheets Nifty and KEY
In My workbook nifty price is be available for every min in NIFTY sheet. I want particulate dates High
Eg: Get 10 Aug 2015 High nifty price from NIFTY sheet, after getting days high value I need to get corresponding Open,Close,Low,High in KEY sheet ROW 6.
Respectively I want to get for Low also. Date want to get from KEY sheet "B2" .

Currently I am Filtering Respective date and then sorting high to low value for High value and lowest to high for Low value and then I am copy pasting into KEY sheet this took lots of time. Kindly help to solve this using VBA.

I have given the excel sheet with exact data.

NIFTY.xlsx