Suponiendo que en la Hoja1 tienes los datos con los emails incorrectos, y en la Hoja2 tienes los mails que sabes que son incorrectos y que quieres localizar en la Hoja1, para eliminar la fila correspondiente, ...entonces prueba este macro:
Código:
Sub eliminar_correos()
'ocultamos el procedimiento
Application.ScreenUpdating = False
'nos situamos en la hoja2
Hoja2.Select
'y en la primera celda con datos
Range("A1").Select
'hasta que no encuentre una fila vacía...
Do While Not IsEmpty(ActiveCell)
'pasamos a una variable el dato de la celda
celda = ActiveCell
'volvemos a la hoja1
Hoja1.Select
'buscamos el dato de la Hoja2 en esta Hoja1
Cells.Find(What:=celda).Activate
'eliminamos la fila
Selection.EntireRow.Delete
'volvemos a la hoja2 Hoja2.Select
'bajamos una fila
ActiveCell.Offset(1, 0).Select
Loop
'mostramos el procedimiento
Application.ScreenUpdating = True
End Sub