Excel: correct formula doesn't work after recording


Hello, I'm trying to record a very long formula and copy it down to the end of data(row 1). The formula works in Excel but I can't get to execute after I record it. Here is my code, please help. Thanks, Lenna

Columns("R:R").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("R1").Select
    ActiveCell.FormulaR1C1 = "OrderStatus"
    Range("R2").Select
    ActiveCell.FormulaR1C1 = _
        "=CHOOSE(IF(RC[-5]="""",1,2),IF(AND(RC[-1]<>""AT1R"",RC[-1]<>""LCTI"",RC[-1]<>""LPRI"",RC[-1]<>""LPRI_RPT"",RC[-1]<>""LPRII"",RC[-1]<>""LPRII_RPT"",RC[-1]<>""SABI_Dilution"",RC[-1]<>""SABII_Dilution"",RC[-1]<>""GP__I"",RC[-1]<>""GP__IDv2"",RC[-1]<>""GP__IDv1"",RC[-1]<>""GP__II"",RC[-1]<>""GP__MICA""),""NoOrderNumberFound"",""TestNotReported""),IF(ISERROR(VLOOKUP(RC[-" & _
        "1,FALSE)),""WrongTestOrdered"",""CorrectTest""))"
   
    FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
    Range("R2").Copy
    Range("R2:R" & FinalRow).Select
    ActiveSheet.Paste


This question generated 10 answers. To proceed to the answers, click here.

This thread is current as of September 13, 2014.


For more resources for Microsoft Excel