Sub DeletePreviousWeeks()
Application.ScreenUpdating = False
ActiveSheet.Cells.AutoFilter
[A1:D1].AutoFilter 4, "<=" & CLng(Date - Weekday(Date, 2))
If ActiveSheet.AutoFilter.Range.Columns(1).SpecialCells(12).Count > 1 Then
Range("A2:D" & Cells(Rows.Count, 1).End(3).Row).SpecialCells(12).EntireRow.Delete
End If
ActiveSheet.Cells.AutoFilter
End Sub