Delete rows based on date criteria

The fastest way with a large set of data would be  to use AutoFilter. Try this

Sub deleteFilteredData()
    Dim rDelete    As Range
    Dim lCalc  As Long
    Dim sDelete As String
    
    With Application
        lCalc = .Calculation
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
        On Error GoTo exit_proc
        
        ''///Sheet with the data, change the name
        With ActiveSheet
            .AutoFilterMode = False
            ''///Apply the filter, this range of data starts in A1
            .Cells(1, 1).CurrentRegion.AutoFilter Field:=1, Criteria1:="=" & Date
            With .AutoFilter.Range
                On Error Resume Next
                Set rDelete = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
                .SpecialCells(xlCellTypeVisible)
                On Error GoTo 0
                If Not rDelete Is Nothing Then rDelete.EntireRow.Delete
            End With
            ''///Remove the AutoFilter
            .AutoFilterMode = False
        End With
        
exit_proc:
        .ScreenUpdating = True
        .Calculation = lCalc
    End With
    
End Sub

Select allOpen in new window

I’m glad I was able to help.

If you expand the “Full Biography" section of my profile you’ll find links to some articles I’ve written that may interest you.

Marty - Microsoft MVP 2009 to 2017
              Experts Exchange Most Valuable Expert (MVE) 2015, 2017
              Experts Exchange Distinguished Expert in Excel 2018
              Experts Exchange Top Expert Visual Basic Classic 2012 to 2020
              Experts Exchange Top Expert VBA 2018 to 2020

Thanks for your help :)