copy a formula to the bottom of an active range when the range is only one row

Question

I am using the following code to copy data down from a cell to the bottom of an active range after I put a formula or a Vlookup in the first cell.

Range("