modul til at sorterer alfabetisk

Hej.

Jeg bruger følgende modul til at sortere i mine celler, men hvordan får jeg modulet til at sortere alfabetisk og indsætte sorteret indhold i toppen af arket?
Sub Sorter()
'
' Sorter Makro
'

'
    Range("A2:B50").Select
    ActiveWorkbook.Worksheets("mødeliste").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("mødeliste").Sort.SortFields.Add Key:=Range( _
        "A2:A50"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("mødeliste").Sort
        .SetRange Range("A2:B45")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub