Bom dia, @decovioti

Ao invés da imagem, anexe um arquivo Excel para que possamos trabalhar nele. De qualquer forma, não entendi a relação entre a primeira e a segunda imagem.

Ola @edsonbr

Obrigado por responder a minha mensagem

Segue o Arquivo em anexo.

Não se preocupe com as imagens, eu inseri em duplicidade.

Desde já agradeço a ajuda

Tenha um bom dia

Uma maneira seria:

Sub ExcluiDiferentes()
  Dim rg As Range, c As Range
  For Each c In Range([G2], [G2].End(xlDown))
    If c <> c(1, 2) Then If rg Is Nothing Then Set rg = c Else Set rg = Union(rg, c)
  Next c
  If MsgBox(rg.Cells.Count & " linhas serão excluídas. Confirma?", vbYesNoCancel, "EXCLUIR DIFERENTES") = vbYes Then rg.EntireRow.Delete
End Sub 

Uma recomendação: procure evitar postar a mesma dúvida em diversos fóruns técnicos simultaneamente (suas postagens foram em questão de minutos aqui e no Clube do Hardware!), pois a grande maioria dos membros que respondem aos tópicos são ativos e frequentam a maioria desses fóruns e fazer cross-post ou spray and pray não é visto com bons olhos. Se possível, aguarde pelo menos 24h se não houve retorno à sua demanda.

@edsonbr Muito Obrigado pela ajuda e orientação. E desculpe qualquer contratempo.