I have a macro on which I use the following code:

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-3],CATALOG,5,FALSE)"
Columns("E:E").Select
Selection.NumberFormat = "$#,##0.00"
Range("D2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range("D2:E2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.FillDown

How can I get it to only fill down to where the adjacent column to the left
has data in it? Is there a piece of code that I can use to do this? Right
now it is taking approx. 2 min. to fill down and calculate.