Excel - Macro para nombrar un rango

[jccguays]

Hola. Apenas he utilizado macros en Excel y sé muy poco del tema. No obstante, he utilizado algunas veces lo de grabar macros y sé que es bastante efectivo. Tengo que realizar ahora unas cosas bastante repetitivas, así que me he planteado realizar una macro. Hasta aquí bien.

Realizo la selección de un rango e intento nombrarlo. Utilizo estas instrucciones de VBA:

ActiveCell.Offset(0, 0).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
ActiveWorkbook.Names.Add Name:="Rango2", RefersToR1C1:= _
"=Prueba_200606_T!R1C1:R883C11"

El rango no es siempre igual en filas, es decir que puede tener tanto 1.000 filas como 800 como 30.000. En cuanto a columnas son siempre las mismas. El problema es que no sé que hay que definir en VBA para no poner un rango fijo, es decir, que me coja las filas que realmente existen (y que selecciono en la 2ª y 3ª instrucción), ya que el poner R883C11 me coge solo 883 filas.

¿Alguien me podría echar una mano?

Gracias y un saludo

[Lenete]

Hola espero que esto te pueda alludar, pues yo tenia el mismo problema
mira lo que tienes que hacer es:
1 dimensionar 2 variables de tipo integer puede ser f1,c1. para fila y columna
2.dimensionar una de tipo string en este caso puede ser rango
3. seleccionar la celda inicial de donde va a empezar tu rango ejemplo 1,1
4.seleccionar todo hacia la derecha y abajo de la celda inicial
ahi va el codigo:
Dim f1, c1 As Integer
Dim rango As String
Hoja1.Cells(1, 1).Select
c1 = Range(Selection, Selection.End(xlDown)).Count
f1 = Range(Selection, Selection.End(xlToRight)).Count
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
rang = "=hoja1!R1C1:R" & c1 & "C" & f1---aqui van las variab del nuev rango
ActiveWorkbook.Names("total").Delete----asi llame mi rango
ActiveWorkbook.Names.Add Name:="total", RefersToR1C1:=rango
espero que te funcione, pues a mi me funciono

[jccguays]

gracias, intentaré probarlo mañana

un saludo