Dynamic named Range en sorteren

[HV_L]

Hoi,
Ik heb deze VBA code gevonden en gebruikt om een dynamische named range te maken (NAW):

Public Sub CreateDynamicRange()

    With Selection.CurrentRegion.Cells(1)
        .Parent.Parent.Names.Add InputBox("Naam"), Replace("=OFFSET(§" & .Address & ",,,COUNTA(§" & _
        .EntireColumn.Address & ")," & "COUNTA(§" & .EntireRow.Address & "))", "§", "'" & .Parent.Name & "'!")
    End With

End Sub

Nou wil ik per kolomheader kunnen selecteren middels een knop bovenaan de kolom.
Het lijkt erop dat deze range stopt als ie een lege cel tegenkomt.

Twee vragen:
1.Klopt de VBA code en neemt ie gewoon lege cellen mee in de range?
2.Welke code heb ik nodig om via een knop de range op kolom te sorteren?

Gebruik nu deze code, maar die neemt dus niet de hele range mee

Sub SortRawData()
'
' SortRawData Macro
' Sort Raw Data to Hasten Lookups
'
  Worksheets("NAW").Select
  With ActiveSheet.Sort
    .SortFields.Clear
    .SortFields.Add Key:=Range("A2:A"), _
      SortOn:=xlSortOnValues, Order:=xlAscending, _
      DataOption:=xlSortNormal
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
  End With

Wie helpt me hierdoor?