sortering via makro

Hej

Jeg har et ark hvor der ligger flere forskellige muligheder for sortering via nogle indspillede makroer.

Men nu lige pludselig tager den ikke række 2 med mere i sorteringen. Hvad kan det skyldes

Makro:

Sub navn()
'
' navn Makro
' Makro indspillet 25-09-2008 af pke
'

'
    Range("A2:m100").Select
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A2").Select
End Sub