Delete Rows greater than current date

Hello,

On a weekly basis I will be preparing a report for my customer, now I thought of running this report through Macro. I am a beginner in Macro.

I will be getting a sheet from customer in that sheet column B will be date column and it will be sorted, later we will be retaining datas till current date and future dates complete rows need to be deleted.

Here we may or may not have the current date and we might get dates in multiples.

For eg: if we don’t have today date it should search for previous date and it should retain the data till that date and it should delete completely the future dates rows.

In this we have another scenario we can get today’s date or previous dates in more than 4 rows, i.e., in B column 8,9,10th rows are today's date(or previous date) and 11th row as tomorrow's date and so on, now when we run the macro it should go and search for today’s date till 10th row it should retain the data’s and from 11th row all the data’s need to deleted, I have attached sample sheet for your quick reference.

AttachmentSize
Book3.xls26.5 KB