Delete previous week's data

[DagmaraB]

Hello, could someone help me with the code to remove previous weeks data please. Week runs From Monday to Sunday

 

[Osvaldo Palmeiro]

Hi. Try:

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