Solved: Fill by number of rows

[tkaplan]

I know this is an easy one, I just haven't been doing much of this recently and am drawing a blank.
In excel 2007:
Column A has a bunch of values, both numberic and text.
I am putting a formula in B2 that I want to autofill down till the last row that there is a value in column A.

so I'm trying to do:
[vba]
Dim numRecs as Integer

numRecs = ' code for counting the values in column A minus 1

Range("B1").formulaR1C1 = "xxxx"
Selection.AutoFill Destination:=Range(activecell,activecell.offset(numRecs),0), Type:=xlFillDefault
[/vba]

Any help would be appreciated

[Bob Phillips]

[vba]

Dim numRecs As Integer

numRecs = Cells(Rows.Count, "B").End(xlUp).Row

Range("B1").Resize(numrecs).FormulaR1C1 = "xxxx" [/vba]

[tkaplan]

Perfect

Thanks!