Boa tarde!!

Se pode mandar seu arquivo modelo, eu não tive problemas ao rodar a macro.

Att

Vou anexar aqui
neste link tem o macro, o arquivo que preciso arrumar, e um tutorial que recebi.
http://www.sendspace.com/file/22ao4y

Fico no aguardo de Respostas
Obrigado

Boa tarde!!

Porque há duas colunas com emails, eu não entendi, seria deletar tudo que contém "email" de cada coluna (A e B) ou só de uma coluna?

Caso seja só de uma coluna.

Sub AleVBA_11352()
    Dim c As Range
    Dim SrchRng
     
    Set SrchRng = ActiveSheet.Range("A1", ActiveSheet.Range("A65536").End(xlUp))
    Do
        Set c = SrchRng.Find("mail", LookIn:=xlValues)
        If Not c Is Nothing Then c.EntireRow.Delete
    Loop While Not c Is Nothing
End Sub

Att

Tem duas colunas, pq os emails que estao na coluna B tem que ser deletado da coluna A.

Boa tarde!!
Não testado!!

Option Explicit
    
Sub CompararDuasColunas_AleVBA()
Dim rngColA As Range
Dim rngColB As Range
Dim rngCell As Range
    
    With Plan1
        Set rngColA = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
        Set rngColB = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp))
        
        For Each rngCell In rngColA.Cells
            If Not IsError(Application.Match(rngCell.Value, rngColB, 0)) Then
                rngCell.Interior.ColorIndex = 15 'vai colorir o que for iqual a B
                rngCell.Delete
            End If
        Next
    End With
End Sub

Acho que esse vai servir para oque eu quero vou testar aqui, MUITO OBRIGADO Mesmo
Att
Leandro Crepaldi