Fill Down In VBA

[TMackie]

I am working on a Macro to copy down the Formulas from the top row to the last row without calling the specific ending cell as it changes each week.

After running the macro to put the formula into "A7" the next line of code is as follows:

Range("A7").FormulaR1C1 = stringName
LastRow = Range("C2000").End(xlUp).Row
Range("A7:A" & LastRow).Value = stringName

However, this just deletes out what is in cell "A7".

Column C will be the reference point as to what the final cell will be, and will never be over 2000 rows.

What do I need to change to allow for the formula to be copied down?

 

[MARK858]

If stringName is a formula have you tried just changing

Range("A7:A" & LastRow).Value = stringName

to

Range("A7:A" & LastRow).FormulaR1C1= stringName

 

[Skyybot]

LastRow = Range("C2000").End(xlUp).Row
Range("A7:A" & LastRow).FillDown