Rangos dinámicos casi arreglados

Hola, casi lo tengo hecho pero no funciona.
Lo que hace la siguiente macro es definir nombres a partir de la columna A29 a A30
Pero mi pregunta es más fácil, la macro funciona lo único que cuando define el rango lo define tipo: R30C2:R30C5 en vez de B30:E30 entonces luego cuando lo verifico en insertar nombre definir no me lo reconoce, pero es extraño porque cuando se graba la macro te lo pone en el formato R30C2:R30C5
Sub MakeName2()
Dim rngName As String
FinalRow = Range("A" & Cells.Rows.Count).End(xlUp).Row
For FirstRow = 29 To 30
FinalCol = Cells(FirstRow, Columns.Count).End(xlToLeft).Column
rngName = Range("A" & FirstRow).Text
ActiveWorkbook.Names.Add Name:=rngName, RefersToR1C1:="=Hoja1!R" & FirstRow & "C2:R" & FirstRow & "C" & FinalCol
Next FirstRow
End Sub
¿Alguna Sugerencia por favor?
Gracias!