Sortering af data

Sub sorteringMedMere()
Dim antalRækker As Long, række As Long, navn As String, p As Byte

    Application.ScreenUpdating = False
   
Rem find antallet af rækker
    antalRækker = ActiveCell.SpecialCells(xlLastCell).row
   
Rem traverser kolonne B udskift aa..
Rem ================================
    For række = 1 To antalRækker
       
Rem udtag navnet - gem navnet som kommentar
        navn = Cells(række, 2)
        Cells(række, 2).AddComment navn
       
Rem findes "aa"/"Aa" i navnet - så erstat det med aA
        navn = Replace(navn, "aa", "aA")
        navn = Replace(navn, "Aa", "aA")
        navn = Replace(navn, "AA", "aA")
       
        Cells(række, 2) = navn
    Next række

Rem sorter iflg. kolonne B - når alle rækker er behandlet
    ActiveSheet.Sort.SortFields.Add Key:=Range("B1:B" & antalRækker), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
   
    With ActiveSheet.Sort
        .SetRange Range("A1:K" & antalRækker)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Rem genopret navn - indsæt fra kommentaren
    For række = 1 To antalRækker
Rem udtag navnet - indsæt dette og slet kommentar
        navn = Cells(række, 2).Comment.Text
        Cells(række, 2).Value = navn
        Cells(række, 2).Comment.Delete
    Next række
       
    Application.ScreenUpdating = False
End Sub