Excel - cómo eliminar filas enteras que contengan un texto que coincida con el que escribas en A1

Sub EliminarFilasConEsteTexto ()

Dim texto, Palabra As String

Range("A1").Select

Do While ActiveCell.Address <> "$A$300"

texto = ActiveCell.Text

Palabra = Left(texto, 7)

If Palabra = "ddd" Then

Selection.EntireRow.Delete

Else

ActiveCell.Offset(1, 0).Select

End If

Loop

Range("A1").Select

End Sub

Sub EliminoFilasConEsteTexto()

Dim Col As Variant, Palabra As String

    Col = InputBox("¿En qué columna contiene las palabras que deseas eliminar?")

   If Len(Col) > 0 And Not Col Like "*[!0-9]*" Then Col = Val(Col)

    Palabra = InputBox("Qué palabra o palabras deseas buscar para eliminar las filas?")

    With Columns(Col)

        .Replace Palabra, "#N/A", xlWhole

        .SpecialCells(xlCellTypeConstants, xlErrors).EntireRow.Delete

    End With

End Sub