Put formula with if statements in the entire columns

I have complicated formulae to be ut in the entire column

1st formula :“=IF(OR(LEN($BN2)=0;$BN2="Not Performed";LEN($BK2)=0;$BK2="Not Performed";LEN($BL2)=0;$Q2="Not Performed";LEN($BM2)=0);"Yes";"No")”

2nd formula : IF($AC2="High";COUNTBLANK($D2:$E2)+COUNTBLANK($AW2:$AZ2)+COUNTBLANK($AZ2)+ COUNTBLANK($T2:$U2)+COUNTBLANK($BI2:$BP2)+COUNTBLANK($DC2)+ COUNTBLANK($J2)+COUNTBLANK($G2)+COUNTBLANK($P2)+ COUNTBLANK($L2:$M2)+COUNTBLANK($R2)+COUNTBLANK($S2)+ COUNTBLANK($AD2:$AE2)+COUNTBLANK($BA2:$BB2)+ COUNTBLANK($BF2:$BG2);0)”

I need a macro which will fill in these formulae in the entire columns.

Sub formula() Range ("CO2:CO").Formula = “=IF(OR(LEN($BN2)=0;$BN2="Not Performed";LEN($BK2)=0;$BK2="Not Performed";LEN($BL2)=0;$Q2="Not Performed";LEN($BM2)=0);"Yes";"No")” End If End Sub

It gives an error Expected end of line.

Please suggest me a easy code that fills these complicated formula in the columns .Also auto-fill it.