Cual es el código o macro para eliminar las filas que contenga la palabra "Alta" a partir del rango

Cual es el código para eliminar las filas que contenga la palabra "Alta" a partir del rango a2:A65000 pero sin que me despliegue que texto deseo eliminar, solo al ejecutarlo me elimine la palabra Alta a partir del rango antes mencionado

Ya me habían apoyado con este código cual seria el nuevo código, me ayudan por favor.

Código actual:

Sub ejemplo22()'por luismondelo
dato = InputBox("que dato buscamos")
If dato = "" Then Exit Sub
dato = UCase(dato)
Range("a65000").End(xlUp).Offset(1, 0).Value = "final"
Range("a2").Select
Do While ActiveCell.Value <> "final"
If UCase(ActiveCell.Value) = dato Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
ActiveCell.ClearContents
End Sub