Sortere fra et indtastnings ark

Prøv og indspil en makro, hvor du sorter som du gerne vil have. Den makro kan du så tilføje en knap eller læg den ind i This workbook, så den opdateres når du åbner projektet. Eks.

Private Sub Workbook_Open()
Sheets("Ark2").Select
    Cells.Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:=Range("B1") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
End Sub

Forklaring til makro:
Vælger Ark 2
Sorter først efter hvad der står i kolonne A - stigende og så derefter i kolonne B - Stigende.