Hi All

The following code is currently being used to hide rows which contain a date earlier than last week in column E:

Sub HidePriorToLastWeek()

Dim EachCell As Range, UsedWorkbench As Range
            
        Range("A6:A5000").RowHeight = 15.75
        
        Set UsedWorkbench = Range("E6", Range("E5000").End(xlUp))
                                       
        Application.ScreenUpdating = False
        Application.Calculation = xlManual
        
        For Each EachCell In UsedWorkbench
            If EachCell < (Date - (DatePart("w", Date) - 1) - 7) Then
            EachCell.EntireRow.Hidden = True
            End If
        Next EachCell
        
        Application.ScreenUpdating = True
        Application.Calculation = xlAutomatic
        
        
End Sub

How would I modify this to delete the rows rather than just hide them? I have been struggling with this for a little while and was hoping someone could help.

Thanks in advance.