Visual Basic - Problema de dimensionamiento

Hola, buenas noches.
Tengo un problemita con una macro que estoy haciendo.

Resulta que necesito establecer un rango que depende de el valor de una función. Tengo casi todo hecho, pero cuando quiero dimensionar una variable para luego utilizarla como en el rango relativo, no consigo dimensionarla.

mirar.

Sub numpagos()
'
' numpagos Macro
'
ActiveCell.Select
ActiveCell.FormulaR1C1 = "=COUPNUM(B8,R[-1]C[-1],R[-1]C,1)"
Dim numero As Integer
numero = Range(R1C1).Value
ActiveCell.Range("A1:D" & numero).Select
Selection.FormulaArray = _
"=FlujosBono(R[-2]C[2],R[-3]C,R[-3]C[1],R[-3]C[2],R[-3]C[3],1)"
ActiveCell.Offset(0, 4).Range("A1").Select

Como veis, el problema lo tengo en "numero= Range(R1C1).Value"
En numero necesito que esté el valor que aparece en ActiveCell.FormulaR1C1 = "=COUPNUM(B8,R[-1]C[-1],R[-1]C,1)"

Me podéis ayudar? Muchas gracias