Macro to add in a formula then new data is added to columns

[tonywatsonhelp]

Hi Everyone,

I need a macro to add a formula "=IFERROR(RC[1]/RC[-1],"""")" into column X of all the new rows I have added.

So I come along and paste my data into Column A to Column W as one big paste lest say it 10 lines starting at row 25,

I get a message box saying "Do you want to add formulas?" yes no
if a click no it leave if I click yes it adds the formula to every row in X

please help if you can thanks

Tony

 

[Fluff]

How about

Sub AddFormula()

   With Range(Range("X" & Rows.Count).End(xlUp).Offset(1), Range("W" & Rows.Count).End(xlUp).Offset(, 1))
      .FormulaR1C1 = "=IFERROR(RC[1]/RC[-1],"""")"
   End With
End Sub