Macro: Fill down then stop

Hi
This little macro would enter your formula in C1, count used rows by Column B, and then fill down column C.

Edit to suit by replacing the formula with the one you need and also the column used for criteria/row count.

Sub FillDown()
Dim LastRow As Long
Range("C1").Formula = "=Sum(A1+B1)"
LastRow = Range("B1:B" & Range("B1").End(xlDown).Row).Rows.Count
Range("C1" & ":C" & LastRow).FillDown
End Sub

Tom

P.S.
I did not read your post as clearly as I should have. You are adding a column.
I would use another line of code with this variable to find the column you need to place the formula in:

LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column

If you need more detailed help, please re-post.

Thanks,
Tom
This message was edited by TsTom on 2002-04-15 21:54

Hello XLerator. Hi Tom!
Here is similar way.
The layout I assumed are the same as Tom's.
Formulas would be written to the specific range directly.

Sub Test()
Range("C1", Range("B65536").End(xlUp).Offset(, 1)).Formula = "=A1+B1"
End Sub