bereich definieren

ich mochte in einem makro einem bereich einen namen geben. der bereich ist aber nicht immer gleich gross - es werden laufend neue datensätze hinzugefügt. ich habe folgendes ausprobiert:

Range("A4").Select
ActiveCell.CurrentRegion.Select
ActiveWorkbook.Names.Add name:="Datenbereich", RefersToR1C1:= _
"='Tabelle Arbeitszeit'!R4C1"

ich habe den makro-recorder eingesetzt und noch die 2. zeile im makro ergänzt (activecell.currentregion.select).
dieses makro gibt aber nur der zelle A4 und nicht dem ganzen bereich den namen "datenbereich".

Was ist falsch?

vielen dank
res