Streamlining VBA to delete rows containing dates within a range specified by another cell

Question

I\'m relatively new to writing macros and I\'ve put together something to delete rows based on the date in a column however the data set is around 85,000 rows and the macro