Tutorial de Excel - Macro de Búsqueda y Eliminación de datos...

                         
                         El código utilizado en el video:

Buscardato = InputBox("Deme el dato")

If Buscardato <> "" Then

 Range("A1").Select

    Cells.Find(What:=Buscardato, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _

        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _

        , SearchFormat:=False).Activate

    Selection.EntireRow.Delete

    Range("A1").Select

 End If