Macro to Drag Formula

Hi Everyone,

I'm looking for a Macro that can drag a vlookup formula in cell D6 until there is no value in column C. Basically i have a query that spits data into my spreadsheet. Excel tends to get a little screwy when i pull the data in from the spreadsheet. I would run the Macro after refreshing the query, it would drag D6 down until column C has no value. In the latest spreadsheet I just ran, the values stopped at cell C519. I would of wanted the macro to automatically stop dragging at D519. Is this possible?

Thanks for the help.

Thank you.