suméring eller ligende

Stå på ark2 og kør makroen

Sub Makro3()

    Sheets("Ark1").Columns("A:A").AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=Range("A1"), Unique:=True
       
        Range("A3").Select
    Range("A1").CurrentRegion.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes _
        , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

NB, der SKAL være overskrift I A1

hvis de ikke skal sorteres, så skal du kun bruge

Sheets("Ark1").Columns("A:A").AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=Range("A1"), Unique:=True

super... takker
smid et svar:-)

et svar ;-))