makro hata veriyor

[kadirdiloglu]

Merhaba arkadaşlar,

Dosyamda renkleri saydırdığım bir formülüm var. Formüller dosyamı ağırlaştırdığı için makro olarak kaydediğim dedim ancak çalıştırınca hata verdi. Makro aşağıdaki gibidir.

Sub Devamsız()
'
' Devamsız Makro
'

'
Range("L431:M431").Select
ActiveCell.FormulaR1C1 = _
"=RENK_SAY(R6C12:R421C12,R2C[13],R6C9:R421C9,RC11)+RENK_SAY(R6C14:R421C14,R2C[13],R6C9:R421C9,RC11)+RENK_SAY(R6C16:R421C16,R2C[13],R6C9:R421C9,RC11)+RENK_SAY(R6C18:R421C18,R2C[13],R6C9:R421C9,RC11)+RENK_SAY(R6C20:R421C20,R2C[13],R6C9:R421C9,RC11)+RENK_SAY(R6C24:R421C24,R2C[13],R6C9:R421C9,RC11)+RENK_SAY(R6C26:R421C26,R2C[13],R6C9:R421C9,RC11)+RENK_SAY(R6C28:R421C28,R" & _
"6C9:R421C9,RC11)+RENK_SAY(R6C30:R421C30,R2C[13],R6C9:R421C9,RC11)+RENK_SAY(R6C32:R421C32,R2C[13],R6C9:R421C9,RC11)+RENK_SAY(R6C34:R421C34,R2C[13],R6C9:R421C9,RC11)+RENK_SAY(R6C38:R421C38,R2C[13],R6C9:R421C9,RC11)+RENK_SAY(R6C40:R421C40,R2C[13],R6C9:R421C9,RC11)+RENK_SAY(R6C42:R421C42,R2C[13],R6C9:R421C9,RC11)+RENK_SAY(R6C44:R421C44,R2C[13],R6C9:R421C9,RC11)+RENK_SAY" & _
"21C46,R2C[13],R6C9:R421C9,RC11)+RENK_SAY(R6C48:R421C48,R2C[13],R6C9:R421C9,RC11)+RENK_SAY(R6C52:R421C52,R2C[13],R6C9:R421C9,RC11)+RENK_SAY(R6C54:R421C54,R2C[13],R6C9:R421C9,RC11)+RENK_SAY(R6C56:R421C56,R2C[13],R6C9:R421C9,RC11)+RENK_SAY(R6C58:R421C58,R2C[13],R6C9:R421C9,RC11)+RENK_SAY(R6C60:R421C60,R2C[13],R6C9:R421C9,RC11)+RENK_SAY(R6C62:R421C62,R2C[13],R6C9:R421C9" & _
"NK_SAY(R6C66:R421C66,R2C[13],R6C9:R421C9,RC11)+RENK_SAY(R6C68:R421C68,R2C[13],R6C9:R421C9,RC11)+RENK_SAY(R6C70:R421C70,R2C[13],R6C9:R421C9,RC11)"
Range("L431:M431").Select
Selection.AutoFill Destination:=Range("L431:M444")
Range("L431:M444").Select
Range("N431:O431").Select
End Sub