Macro that deletes rows below a certain value

Not tested but maybe:

Sub test()

Dim lngLoopRow As Long

For lngLoopRow = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1

    If Range("A" & lngLoopRow) = "3 of 18" Then
    
        Range("A" * lngLoopRow).Resize(43, 1).EntireRow.Delete
        
    End If
    
Next lngLoopRow

End Sub

Dom