[IvanVk]

Autor davor07

Hvala ti puno!
Metoda 1 je jako dobra, poluautomatska i biti će skoro idealna.
Metoda 3 mi uopće nije pala na pamet, a mislim da će na kraju biti idealna!
hvala

Imaš i ovu metodu

Sub KopirajUnique()

  Application.ScreenUpdating = False
      
  'KOPIRANJE A NA B - SAMO UNIKATI
  Dim aa As Long
  aa = Sheets(1).Range("B1").End(xlDown).Row
      
    Range("B1:B" & aa).Select
    Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("F1"), Unique:=True
    
    Application.CutCopyMode = False
    
    Range("B1").Select

End Sub