Hej hej

Börja med att göra om din lista till en tabell. Du ställer dig någonstans i din datamängd och trycker på ctrl + t, bocka för att det finns rubriker.
Därefter kan du gå in i VBA editorn med alt + F11, Till vänster i editorn ser du projektfönstret, dubbelklicka på bladet där din lista ligger. Lägg därefter in nedan kod i den vita rutan som ploppar upp.

Option Explicit

Sub worksheet_change(ByVal target As Range)
Dim rng As Range: Set rng = ActiveSheet.Range("B:B")

If Not Intersect(target, rng) Is Nothing Then
Application.EnableEvents = False
Dim ls As ListObject: Set ls = ActiveSheet.ListObjects(1)

With ls.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Application.EnableEvents = True
End If

End Sub

Därefter kan du stänga ner editorn och testa att sorteringen fungerar. Glöm inte att spara boken som en makroaktiverad arbetsbok,

MVh
Christian