Remove rows with a date before

[helpexcel]

Hi - I have a spreadsheet with data in columns A:E. In column B is a date. I would like to remove all rows with a date more than 7days older the today(). Ideally i'd like to have a popup that asks remove dates prior to? thanks!

 

[helpexcel]

Found this, adjusted for the right columns and it works great!

[COLOR=#333333][I]Sub DeleteFromDate()[/I][/COLOR]Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim LR As Long
LR = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
DateR = Application.InputBox("Enter based on date to delete", TitleMsg, FormatDateTime(Date, vbShortDate), Type:=1)
Cells.AutoFilter Field:=2, Criteria1:="<=" & DateR
ALR = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
If ALR > 2 Then
    Range("A2:A" & LR).SpecialCells(xlCellTypeVisible).Select
    Range("A2:A" & LR).Delete
    Range("A1").Activate
End If
Cells.AutoFilter
MsgBox "Finished deleting rows"
Application.DisplayAlerts = True
Application.ScreenUpdating = True [COLOR=#333333][I]End Sub[/I][/COLOR]