Ron, thanks for the quick response. The code works great
and I'm sure I'll use it frequently. Thanks for the help!

-----Original Message-----
Hi Eva

Try this to copy the formula in B1 down

Sub test()
Dim LastRow As Long
LastRow = Application.InputBox("Enter a number",
Type:=1)
With Worksheets("Sheet1")
.Range("B1:B" & LastRow).FillDown
End With
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Eva Shanley" wrote
in message ...
I have some code that copies formulas down 9000 rows,
but
the range to copy down will change frequently. Is
there a
way to prompt the user via an input box for the number
of
rows they want to copy down, and then do so? As always,
TIA.


.