introducir el código aquí
Sub EliminarFilas_segun_texto ()
    Dim Texto As String, Celda As Range, Hoja As Worksheet
    Set Hoja = ThisWorkbook.Sheets("HOJA")
    Texto = InputBox("Texto a buscar")
    If Not Texto = "" Then
        For cont = Hoja.Range("A" & Rows.count).End(xlUp).Row To 3 Step -1
           Set Celda = Hoja.Columns("A").Find(Texto, , , xlWhole)
           If Not Celda Is Nothing Then
              Hoja.Range(Celda, Celda.Offset(24, 0)).EntireRow.Delete
           End If
        Next cont
    End If
End Sub