Eliminar fila, con criterio y pregunta de seguridad

Esto lo condicionas con un evento de error, ya te paso los códigos.

Estos serían los códigos cualquier duda me avisas.

Sub búsqueda()
On Error Resume Next
dato = Range("B2").Value
' Aquí colocas los códigos uqe ya tiens para efectuar la búsqueda
If Err.Number = 91 Then
MsgBox "Código " & dato & " No encontrado", , "CUADRO DE DIALOGO"
Else
respuesta = MsgBox("Realmente desea borrar el código " & dato, vbYesNo, "DIALOGO DE CONFIRMACIÓN")
If respuesta = vbYes Then
' Aquí colocas los códigos que ya tienes para eliminar la fila
Else
MsgBox " La Operación ha sido cancelada, no se procesa la eliminación del registro ", , "CANCELACIÓN DE OPERACIÓN"
End If
End If
End Sub

No consigo juntarlas, no tengo el conocimiento, porque la macro es un solo código y para mi el Visual Basic es lo mas parecido a chino nivel experto!!

Te paso de donde saque la macro a ver si la podes adaptar o si te es mejor escribir el código completo vos por mi mejor!!

No quiero molestar asique lo que sea mejor te lo voy a agradecer... UN MONTÓN!!

Gracias y un saludo

Otra aclaración, el código que copie de la pagina que me olvide de dejarte tiene un defecto si le aplicamos los cuadros de consulta, que es que le ordena cambiar de pagina en lugar de hacerlo automáticamente, no se si eso se puede evitar, pero se nota como la macro cambia de pagina y vuelve en el momento que borra.

Y como te decía para mi es chino experto, pero calculo que si adaptas tu código al otro me van a aparecer los cuadros de confirmación sobre la pagina de "Resumen" y la idea es que el usuario no la vea, sino que maneje todo desde "Borrar"

No se, los expertos son ustedes y por lejos, aguardo tus recomendaciones

Pagina del otro codigo

http://www.todoexpertos.com/categorias/tecnologia-e-internet/software-y-aplicaciones/microsoft-excel/respuestas/2203007/eliminar-fila-con-criterio-en-otra-hoja

Saludos

No he cogido la macro que me propones, pero estos códigos hacen lo que necesitas

Sub búsqueda()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("borrar").Select
dato = Range("B2").Value
Sheets("Resumen").Select
Columns("A:A").Select
Selection.Find(What:=dato, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
fila = ActiveCell.Row
If Err.Number = 91 Then
MsgBox "Código " & dato & " No encontrado", , "CUADRO DE DIALOGO"
Else
respuesta = MsgBox("Esta seguro de borrar el código " & dato, vbYesNo, "DIALOGO DE CONFIRMACIÓN")
If respuesta = vbYes Then
Rows(fila).Select
Selection.Delete Shift:=xlUp
Else
MsgBox " La Operación ha sido cancelada, no se procesa la eliminación del registro ", , "CANCELACIÓN DE OPERACIÓN"
End If
End If
Sheets("borrar").Select
Application.ScreenUpdating = True
End Sub

Esta parte: Application.ScreenUpdating = False. Es la que hace que no se vea el proceso de la macro, es decir, no se vea que esta pasando de una pantalla a otra.

No olvides finalizar la pregunta.