Problemer med makro og "hvis" formel

Hej eksperter

jeg prøver at optage nedenstående makro, og efterfølgende afspille den:

Sub fafaf()
'
' fafaf Makro
'

'
    Range("L2").Select
    ActiveCell.FormulaR1C1 = "prisændring"
    Range("L3").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(R[1058]C[-3]<>0,LN(R[1058]C[-3])-IF(R[1058]C[-4]<>0,LN(R[1058]C[-4]),IF(R[1058]C[-5]<>0,LN(R[1058]C[-5]),IF(R[1058]C[-6]<>0,LN(R[1058]C[-6]),IF(R[1058]C[-7]<>0,LN(R[1058]C[-7]),LN(R[1058]C[-3]))))),IF(R[1058]C[-4]<>0,LN(R[1058]C[-4])-IF(R[1058]C[-5]<>0,LN(R[1058]C[-5]),IF(R[1058]C[-6]<>0,LN(R[1058]C[-6]),IF(R[1058]C[-7]<>0,LN(R[1058]C[-7]),LN(R[1058]C[-4])))),IF" & _
        "C[-5]<>0,LN(R[1058]C[-5])-IF(R[1058]C[-6]<>0,LN(R[1058]C[-6]),IF(R[1058]C[-7]<>0,LN(R[1058]C[-7]),LN(R[1058]C[-5]))),IF(R[1058]C[-6]<>0,LN(R[1058]C[-6])-IF(R[1058]C[-7]<>0,LN(R[1058]C[-7]),LN(R[1058]C[-6])),0))))"
    Range("L3").Select
    Selection.AutoFill Destination:=Range("L3:L1457"), Type:=xlFillDefault
    Range("L3:L1457").Select
End Sub


Den vil ikke køre den og melder fejl.

Det jeg forsøger med min makro er at udregne pris ændringen af en vare (sidste pris - prisen før det). Problemet er at nogen varer har fået ændret pris i 2008 og så først igen 2013. Andre varer fra 2010-2011 kun.


Håber i kan hjælpe, om ikke andet så med en anden formel der kan løse opgaven.