Copy formula down to last active cell

[cr2289]

I have a simple formula, D2/C2 = Percentage. What is the VBA to copy the formula down to the last active cell in the column?

 

[MARK858]

last active cell in the column

Please describe exactly what you mean by the above? and what cell are you putting the original formula in?
Can you also post the actual formula you are putting in the cell

 

[sofas]

Suppose you want to put the results in column a starting from row 2

Sub CopyFormulaDown()
    Dim LastRow As Long
    LastRow = Cells(Rows.Count, "D").End(xlUp).Row
    
    Range("a2").AutoFill Destination:=Range("a2:a" & LastRow)
    
    'Convert cell range to percentage format
    Range("A2:A" & LastRow).Style = "Percent"
End Sub

 

[MARK858]

What makes you think it is a Style (I would think if anything along those lines it would be a numberformat) and not a Formula as the OP has stated?

 

[cr2289]

Please describe exactly what you mean by the above? and what cell are you putting the original formula in?
Can you also post the actual formula you are putting in the cell

Hi Mark! The formula will go in Column E and copy down to the last active cell in the column. The formula is C2/D2 = Percentage in Column E.

 

[MARK858]

What exactly do you mean by last Active cell in the column (what exactly are you basing the last Active cell on)? and C2/D2 = Percentage isn't a valid formula.

Do you mean for the formula

=C2/D2

then format the cells as a percentage?

 

[MARK858]

Do you mean for the formula
=C2/D2then format the cells as a percentage?

Assuming the above is what you actually mean and using Column C to determine the last row as you should have data in that column try the code below...

Sub cr2289A()
    With Range("E2:E" & Range("C" & Rows.Count).End(xlUp).Row)
        .Formula = "=C2/D2"
        .NumberFormat = "0.00%"
    End With
End Sub