Macro That deletes rows based on date and text

I'm slowly trying to automate a weekly report that I put together every Monday (sometimes Tuesday). The example I attached is from Monday 7/3 and hope to be able to use this macro on 7/10 or 7/11.

I need a macro that will delete the row if the text in Column H starts with "auto" ("auto*" if was used in a formula) AND the date in column C is the previous Thursday thru Current date (6/29,6/30,7/1,7/3,7/4) .

In this example, 8 rows should end up being deleted. This data is usually 15,000 ish rows long and the dates update every week.

Thank you so much in advance

No its a little different, previous thread was looking for any text in the cell and the date as criteria for deletion. That was a different part of the report as well

This Thread I am looking for cell H to start with "auto" and the same date criteria for deletion. I could probably reuse the previous code to search for the date but I have no idea how to look for a specific starting text

Originally Posted by toastmaster12

the date in column C is the previous Thursday
thru Current date (6/29,6/30,7/1,7/3,7/4)

So you want to not delete 6/28, 6/27, 6/20 and 6/1 ?

Originally Posted by Marc L

So you want to not delete 6/28, 6/27, 6/20 and 6/1 ?

For for this example yes, the goal would have the previous Thursday -next Tuesday dates that meet the text criteria deleted. This example is from 7/3 so 6/28 and older should not be deleted

This should be dynamic now so if your data goes past 25k rows.

 
Sub Works()
'
' Macro3 Macro
'

'
Application.ScreenUpdating = False

    Range("O2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(AND(RC[-12]>=(TODAY()+CHOOSE(WEEKDAY(TODAY()),-3,-4,-5,-6,0,-1,-2)),RC[-12]<=TODAY(),ISNUMBER(FIND(""AUTO"",RC[-7]))),""yes"",""no"")"
    Range("O2").Select
        Selection.AutoFill Destination:=Range("O2:O" & Range("A" & Rows.Count).End(xlUp).Row)

    Columns("O:O").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Call Delete
        Columns("O:O").Select
    Selection.Delete Shift:=xlToLeft
     Application.Goto Range("A1"), Scroll:=True
        Range("A1").Select
    Application.ScreenUpdating = True
End Sub


Sub Delete()
    Dim LastRow As Long
    Dim i As Long
    Dim rng As Range
    Dim deleteRange As Range

    ' Find the last cell with a value in column O
    Set rng = Range("O1", Range("O" & Rows.Count).End(xlUp))
    LastRow = rng.Row + rng.Rows.Count - 1

    ' Loop through the rows in reverse order
    For i = LastRow To 1 Step -1
        If Range("O" & i) = "yes" Then
            If deleteRange Is Nothing Then
                Set deleteRange = Range("O" & i)
            Else
                Set deleteRange = Union(deleteRange, Range("O" & i))
            End If
        End If
    Next i

    ' Delete the rows
    If Not deleteRange Is Nothing Then
        deleteRange.EntireRow.Delete
    End If
End Sub