Autofill formula to last cell

[q-tip]

I'm analyzing very large time series in my model. To make my model tidier and to minimize the size of the file, I need a macro to automatically fill out the formulas I need.

The input data is in the first column, and all kinds of formulas follow to the right. How can I make a macro that will autofill the formulas all the way down to the last input of the data series?

Say, that I have a data series of ten observations, then the macro will autofill the formula cells 9 rows down, and if I then add 5 observations I can run the macro again and it will autofill 14 rows down from the first row.

It would be awesome to get some help with this.

Thanks

[VBA Noob]

q-tip,

Please use a more descriptive title next time

Maybe

Sub FillFormula()
Dim LastRow As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row

    Range("B1").AutoFill Destination:=Range("B1:B" & LastRow)
End Sub

VBA Noob

[shg]

Or select B1 and just double-click the fill handle.

[q-tip]

I want to autofill the formula in cell "B10" down "A8" rows. How should I do this?

Thanks

[shg]

Either of these, I reckon:

    Range("B10").AutoFill Destination:=Range("B10").Resize(Range("A8").Value + 1)
    Range("B10").Resize(Range("A8").Value + 1).Formula = Range("B10").Formula

[q-tip]

this doesn't work. any other ideas?

[shg]

Soory, correction posted. Please try again.