Benannten Bereich um 1 Zeile erweitern

Sub Nation_2_erweitern()
' Nation_2_erweitern Makro
Dim i, k
'   Zunächst wird die aktuelle Länge der Liste ausgelesen
i = Sheets(3).Cells(3, 44).Value
'   und zwischengespeichert
Sheets(3).Cells(3, 45).Value = i
'   Die zukünftige Listenlänge wird hochgezählt
k = i + 1
'   Aktueller Name wird gelöscht
ActiveWorkbook.Names("Nation").Delete
'   Neuer Bereich soll benannt werden, klappt auf diese weise aber nicht
ActiveWorkbook.Names.Add Name:="Nation", RefersToR1C1:= _
"=sheets(3).cells(4,44):sheets (3).cells(4+k,44)"
Sheets(3).Cells(3, 44).Value = k
'   So sah das Makro nach Aufzeichnung aus, mit absoluter Adressierung, sollte aber ja flexibel adressiert werden.
'    ActiveWorkbook.Names.Add Name:="Nation", RefersToR1C1:= _
"=Daten!R4C44:R18C44"
'    Sheets("Menü").Select
End Sub