Problema rango

[gacg1310]

Buenas Tardes, una vez mas necesito su valiosa colaboracion:

Realizo la siguiente macro:

Sheets("Hoja1").Select

Range("A1").Select

ActiveCell.Offset(1, 0).Range("A1").Select

Range(Selection, Selection.End(xlDown)).Select

ActiveWorkbook.Names.Add Name:="DATO", RefersToR1C1:="=Hoja1!R2C1:R26C1"

Cuando ingreso una fila mas esta no hace parte del rango ya creado por esto R2C1:R26C1, como hago sin necesidad de hacer una tabla pra que cuando ingrese una nueva fila esta haga parte del rango llamado "DATO", gracias

[Armando Montes]

Intenta con rangos dinamicos:

Rangos dinámicos con la función INDIRECTO de Excel. ~ JLD Excel en Castellano - Usar Microsoft Excel eficientemente