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""))"