display all unique date available first

Question

I have a VBA script which takes input from user to perform find and replace, want to display all the unique date available first

I have written this VBA script to perform