VBA: Opret tabel eller navngivent område ud fra select Region

Jeg har brug for en makro, der enten
1) opretter en tabel med overskrifter eller
2) laver en navngivning af det markerede område.

Når jeg prøver det, får jeg specifikke referencer - og det er nogo, så rangen ændrer sig hele tiden.

Når jeg prøver får jeg nedenstående (3 forskellige) resultater.

Sub BuildTable()
'
' BuildTable Macro
'

'
    Selection.CurrentRegion.Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$G$1427"), , xlYes).Name = _
        "Table2"
    Range("Table2[#All]").Select
End Sub

Sub BuildTableVS02()
'
' BuildTableVS02 Macro
'

'
    Selection.CurrentRegion.Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$G$1427"), , xlYes).Name = _
        "Table3"
    ActiveCell.Range("Table3[#All]").Select
End Sub


Sub NameBunkeTable()
'
' NameBunkeTable Macro
'

'
    ActiveCell.Offset(-9, -5).Range("A1:G1427").Select
    ActiveCell.Activate
    ActiveWorkbook.Names.Add Name:="BunkeTabel", RefersToR1C1:= _
        "=Ekspo_bunke!R1C1:R1427C7"
    ActiveWorkbook.Names("BunkeTabel").Comment = ""
End Sub