dimorais, acredito que o pedido é semelhante ao que você solicitou em 2013 e foi ajudado pelo Wagner e o Reinaldo, veja se consegue adaptar :

O anexo está corrompido, mas como foi um pedido seu, acredito que deve ter o modelo.

Comparar e representar [Resolvido]
viewtopic.php?f=10&t=9035

[]s

Boa noite
Mauro, grato por ter lembrado. Guardo todas os pedidos solucionados e essa macro uso em uma das planilhas atualmente. Vou postar a solicitação com um enfoque diferente e acredito que não é a mesma coisa.

Please!! alguém se habilita a criar essa macro.

Bom dia
Precisava adaptar essa macro para esse caso especifico. Só preciso determinar os intervalos para poder usar de modo mais completo.

Sub Del()
Application.ScreenUpdating = False
Dim vlrA As String
Dim lnA, lnD As Integer
lnA = 2
Do While Cells(lnA, "A") <> ""
vlrA = Cells(lnA, "A")
lnD = 2

Do While Cells(lnD, "D") <> ""
If Cells(lnD, "D") = vlrA Then
Cells(lnD, "D").Select
‘==========================================================
'Valores NÃO DELETADOS devem permanecer na mesma posição
Selection.Delete Shift:=xlUp
‘==========================================================
lnD = lnD - 1
End If
lnD = lnD + 1
Loop
lnA = lnA + 1
Loop
Application.ScreenUpdating = True
End Sub

Grato

Dimorais, juntei os dois tópicos pois entendi se tratar da mesma situação.

Veja se o modelo anexo é o que pretende.

Apagar Numeros repetidos

[]s

CERTÍSSIMO, Mauro Coutinho. Muito grato