Sorter og læg blank række øverst

Prøv med

Sub Sorter()
Columns("A:E").Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Rows("1:1").Select
    Selection.Insert Shift:=xlDown
End Sub

Jeg kan se at det virker som jeg har beskrevet.
Dog har jeg overskrifter i række 1.
Kan jeg navngive kolonnerne, eller sortere uden den række?

Brug

Sub Sorter()
Columns("A:E").Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=True, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Rows("1:1").Select
    Selection.Insert Shift:=xlDown
End Sub

hvis den blanke linie skal ind før overskrifterne. Ret til

  Rows("2:2").Select

hvis den blanke linie skal være mellem overskrifter og data.