Automatically Sorting date when Enter Information

I need a VBA code or a Macro that should do the following SORT function with Date's column.
I have two sheet one is name Data and Sort List so I ma looking VBA to sort automatic date on sheet Sort List when I update Data sheet so ex: when I updated date on cell D101 this date to show up Sort list and sort so on entering date in cells D hitting 'ENTER' key, this latest date added should automatically sort and arrange itself.The Sort list is protected the pass is 1 please see attachment.
I used this code but it is not work

Please Login or Register  to view this content.

Thank you for your support KOKOSEK