O ideal seria um modelo básico para uma analise melhor, mas já tentou utilizar o Filtro avançado ?

Boa tarde!!

falta muito detalhe, mas já que não os explicitou, tente algo assim.

Sub AleVBA_16568()
Dim lr As Long

lr = Cells(Rows.Count, 1).End(xlUp).Row
Plan1.Range("A1:D" & lr).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Plan2.Range("A1"), Unique:=True
With Plan2.Range("A2:D" & lr)
    .ClearFormats
    .Offset(1).Resize(.Rows.Count - 1).Cut Destination:=.Cells(1)
End With
End Sub

Att