VBA macro to put Formula in cell - too long?

Hi,

When I try to run the below code (it should copy the formula into the cell) I get the error message "Run-time error '1004': Application-defined or object-defined error".

Is this because it is too long? If so, how could I shorten it?

Thank you in advance for your help!

Range("A4").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(ISERROR(IF(OR((LEFT(VALUE(RC[1]),10))=""7901699797"",(LEFT(VALUE(RC[1]),10))=""7901551774"",(LEFT(VALUE(RC[1]),10))=""7990076047"",(LEFT(VALUE(RC[1]),10))=""7990113923"",(LEFT(VALUE(RC[2]),6))=""743203"",(LEFT(VALUE(RC[2]),3))=""625"",(LEFT(VALUE(RC[2]),3))=""626"",(LEFT(VALUE(RC[2]),3)=""627"",(LEFT(VALUE(RC[2]),6))=""473203"")),"""",""delete"")),"""",IF(OR((LEFT(VALUE(RC[1]),10))=""7901699797"",(LEFT(VALUE(RC[1]),10))=""7901551774"",(LEFT(VALUE(RC[1]),10))=""7990076047"",(LEFT(VALUE(RC[1]),10))=""7990113923"",(LEFT(VALUE(RC[2]),6)=""743203"",(LEFT(VALUE(RC[2]),3))=""625"",(LEFT(VALUE(RC[2]),3))=""626"",(LEFT(VALUE(RC[2]),3)=""627"",(LEFT(VALUE(RC[2]),6)=""473203"")),"""",""delete""))"

You have mismatched parentheses, I think. I also don't see the purpose of the VALUE function if you are checking against a string, so try:

    ActiveCell.FormulaR1C1 = _
        "=IF(ISERROR(IF(OR(LEFT(RC[1],10)=""7901699797"",LEFT(RC[1],10)=""7901551774"",LEFT(RC[1],10)=""7990076047"",LEFT(RC[1],10)=""7990113923"",LEFT(RC[2],6)=""743203"",LEFT(RC[2],3)=""625"",LEFT(RC[2],3)=""626"",LEFT(RC[2],3)=""627"",LEFT(RC[2],6)=""473203""),"""",""delete"")),"""",IF(OR(LEFT(RC[1],10)=""7901699797"",LEFT(RC[1],10)=""7901551774"",LEFT(RC[1],10)=""7990076047"",LEFT(RC[1],10)=""7990113923"",LEFT(RC[2],6)=""743203"",LEFT(RC[2],3)=""625"",LEFT(RC[2],3)=""626"",LEFT(RC[2],3)=""627"",LEFT(RC[2],6)=""473203""),"""",""delete""))"

Please don't forget to mark the question 'Solved'.