Need to add sorting in the existing vb macro and need to modify to fetch the latest data

Hi All,

I have more then 20,000 data in my excel and have a macro to fetch the device detail on the latest date .

Recent macro fetch the device from B column on the basis of last updated date from D column and copy to another sheet

Now I need to do some modification in the macro
1.I have to first sort the column B in ascending order and then sort the D column on ascending order(Starting of macro)
2.In B column device details are available,in D column last updated date is available and in F column device state is available

I need the device detail of latest date where the device state below the Close and close_un (Need all the detail of device of latest date)
(As the device last state is close sometime close_un.So I need the latest date data of device before the close or close_Un state.if device have both state close and close_un then the detail need to pick before close and close_un

Ex : A device latest date is 11/2/2012 11:55 but the device state is close so I need to pick the data of device on the date 12/6/2011 11:26


B device latest date is 6/18/2011 14:12 but the device state is close and other date device state is close and close_un so I need to pick the device detail of the date 5/10/2011 10:06

Excel sheet with existing macro is attached here