Vba to select rows based on date and Delete

Hello,

I want to delete the rows which are not <=8 days and >=8 days.

for ex: lets take today's date 29/06/2016. So now select the rows that is not <= 8 days and >8 days from 29/06/2016 on wards.
and delete the rows who's dates are not <=8 days and >8 days.

Below is pic.

date.PNG

Thank You!

Regards
Wither