VBA code to fill formula

[sdfchu]

Hi,
I am working on a macro where I want column A to drag and drop a formula when i run the macro, but when I run code below i get this error "Run-time '1004': Method 'Range' of object'_Global' failed. I am learning VBA as i go so i will really appreciate help with code below.

Range("A1").Select
Range("a2:a" & LastRowColumnA).Formula = "=IF(RC[16]=""not in Smart List"",""not in Smart List"",IF(ISNUMBER(SEARCH(""dead"",RC[14])),""Failed to scan"",IF(RC[7]=""NULL"",""NULL"",IF(ISNUMBER(SEARCH("" log into"",RC[13])),""OK"",IF(ISNUMBER(SEARCH(""was able to log"",RC[17])),""OK"",IF(ISNUMBER(SEARCH("" log into"",RC[10])),""OK"",IF(ISNUMBER(SEARCH("" checks : no"",RC[11])" & _
        "entication Failed"",""OK"")))))))"

Thank You,

 

[steve the fish]

Sorry for the late reply. Its:

Range("A2:A" & LastRowColumnA).FormulaR1C1 = "=IF(RC[16]=""not in Smart List"",""not in Smart List"",IF(ISNUMBER(SEARCH(""dead"",RC[14])),""Failed to scan"",IF(RC[7]=""NULL"",""NULL"",IF(ISNUMBER(SEARCH(""log into"",RC[13])),""OK"",IF(ISNUMBER(SEARCH(""was able to log"",RC[17])),""OK"",IF(ISNUMBER(SEARCH(""log into"",RC[10])),""OK"",IF(ISNUMBER(SEARCH(""checks : no"",RC[11])),""Authentication Failed"",""OK"")))))))"