Delete Rows with dates older than previous Friday

Hello,
I'm fairly new to VBA and currently automating a weekly report.

I extract this report from a sheet within a workbook managed by another department, then clean it up to be used as a source file for a larger report. Normally, I run this report on Fridays, but occasionally I'll do it over the weekend or Monday. All rows with a date (column H) older than the previous Friday must be deleted. For example, today is Friday, 5/31/13 so I need to delete all rows with a date greater than Friday, 5/24/13.

Although I know code that will delete rows exactly 7 days back, but I don't know how to create code that will use a date range and will pass this on to someone in an admin role after finishing the automation. Attached is a sample of the report.

Thank you in advance for any who take the time to help me. ;)

Attachment 100675