Macro: Filter Database By Date

My problem is modifying existing macro code (see below) provided by Jim.


Sub WriteDetentionRegister()

Application. ScreenUpdating = False

ClearDetentionRegister
SortDataBase
AutoFilterDataBase1

Dim rDataRange As Range
Set rDataRange = DBase.Range("rDataBase"). CurrentRegion.Offset(1, 0)

rDataRange.Resize(rDataRange.Rows.Count - 1, rDataRange.Columns.Count - 2).Copy
DREG.Range("rdetreg").Offset(1, 0).PasteSpecial xlPasteValues
DREG.Activate
With Selection
.Sort Key1:=Range("rOffDate"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
End With
DREG.Range("rdetreg").Select
Application.CutCopyMode = False

End Sub

At present the writedetentionregister macro filters the database sheet for a positive balance (in column H) and pastes these records into another sheet called Detention register.

Is there a way of also getting the writedetention macro to count 7 days from the offence date (the E column of the database sheet) and ONLY on or after that date write that record to the Detention Register Sheet?

The workbook containing the database & the detention register sheets are enclosed.