Código de fuente:
Sub eliminar()
dato = InputBox("Qué código desea eliminar ?")
If dato = "" Then Exit Sub
Set busqueda = ActiveSheet.Range("B:B").Find(dato, LookIn:=xlValues, Lookat:=xlWhole)
If busqueda Is Nothing Then
        MsgBox "DATO NO ENCONTRADO!"

Else
        Rows(busqueda.Row).Select
        pregunta = MsgBox("Está seguro que quiere eliminar?", vbOKCancel, "El Tío Tech")
        If pregunta = 2 Then Exit Sub
        Rows(busqueda.Row).EntireRow.Delete
End If
End Sub