convert formula to code

[gavster]

I've just got this formula from a general thread I started, and it works brilliantly.
=LEFT(A34,6)&MID(a34,8,1)

I'd like to run it as a bit of code attached to the worksheet, but my version doesn't work.

   If Target.Column = 1 Then
    With Target.Offset(0, 29)
        .FormulaR1C1 = _
            "=IF(RC1>"""",=LEFT(RC1,6)&MID(RC1,8,1),"""")"
     End With

Any ideas (probably a very simple error)?

Many thanks,
Gavin