Excel - Macro para nombrar un rango

[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