Dim rng as Range
set rng = Range(cells(2,1),cells(2,1).End(xldown))
rng.offset(0,1).Formula = Cells(2,2).Formula

--
regards,
Tom Ogilvy

"JayL" wrote in message
...
Thanks - I understand the use of the fill handle. Looking for an
automated
macro method.
"David McRitchie" wrote in message
...
Hi Jay,
If every cell in column A is filled in then you can double click on the
fill handle, which you will find on the lower right side of the
cell say when you have cell B2 selected.

http://www.mvps.org/dmcritchie/excel/fillhand.htm
---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page: http://www.mvps.org/dmcritchie/excel/search.htm

"JayL" wrote in message
...
All -
I have a fomula in cell B2 that uses data in cell A2.
I want to copy the formula down but stop when the relative cell in
column
a
is blank or empty.

TIA
-Jay