filldown using macros

[qiong]

hi

I would like to create a macro that selects a range according to a
calculated result, and then filldowns a formula.

My calculated result is displayed in a cell whose forumla
={Max(IF(ISNUMBER(B3:B1055),ROW(B3:B1055)))}

Say this displays 87.

I would like the macro to select E3:BM3 to filldown (87-3=84) rows.
(Cells E3:BM3 contains Vlookup formulas.)
Is this possible?

Thanks in advance
Keng

 

[Ron de Bruin]

Try this with in cell A1 the formula

={Max(IF(ISNUMBER(B3:B1055),ROW(B3:B1055)))}

Sub test2()
Dim Lrow As Long
Lrow = Range("A1").Value
Range("E3:BM" & Lrow).FillDown
End Sub