Remove rows based on thier date

Question

I have a really big excel list with 2000+ records.

I use this code to sort the date:

   Range("C1") = "Dates"
   Columns("A:E&