Excel - rellenar series con macro

ANTES QUE TODO RECIBAN UN CORDIAL SALUDO.

TENGO UNA MACRO ASI PERO NECESITO VER SI ME AYUDAN A COMPLEMENTARLA LO QUE QUIERO HACER ES RELLENAR UNA SERIE DE MODO AUTOMATICO PERO CON EL NUMERO QUE APARESCA EN UNA CELDA DETERMINADA POR EJEMPLO SI EN LA CELDA C4 TENGO EL VALOR 24 QUIERO QUE LA MACRO HAGA UNA SERIE DE 24 NUMEROS DEL 1 AL 24, SI EN LA CELDA C4 TENGO EL VALOR 52 QUE LA MACRO HAGA UNA SERIE DEL 1 AL 52, ESPERO HABERME EXPLICADO BIEN Y QUE ME AYUDEN MUCHAS GRACIAS

Sub SERIE2()
'
' SERIE2 Macro
' Macro grabada el 29/08/2009 por ANTONIO CRUZ
'

'
Range("B7").Select
ActiveCell.FormulaR1C1 = "1"
Range("C4").Select
ActiveCell.FormulaR1C1 = "24"
Range("B7").Select
Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
Step:=1, Stop:=24, Trend:=False
Range("B7").Select
End Sub

una posibilidad...

Sub SERIE2()
'
' SERIE2 Macro
' Macro grabada el 29/08/2009 por ANTONIO CRUZ
'

'
Range("B7").Select
Selection.Value = 1
Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
Step:=1, Stop:=Range("C4").Value, Trend:=False
Range("B7").Select
End Sub

Saludos, desde Baires, JuanC

eres muy amable si funciono muchas gracias juan saludos desde mexico