prova così.
crea un pulsante ed inserisci questo:

Dim Inizio As Integer, Fine As Integer
Dim MiaCellaAs StringInizio = InputBox("inserire il numero di riga iniziale")
Fine = InputBox("inserire il numero di riga finale")
For t = Inizio To Fine
MiaCella= "A" & t 'lettera della colonna

Range(MiaCella).Select
ActiveCell.FormulaR1C1 = "inserisci tua formula "
Next t


per creare la formula utilizza il registratore di macro