Add If and IsError to vba folmula

[capson]

Hello,

I have VBA formula and I need to add If & IsError due to empty cells, I have tried

"=If(ISERROR(LEFT(RC[-1],FIND("", "",RC[-1])-1)),"",LEFT(RC[-1],FIND("", "",RC[-1])-1))"

But not working

Thanks for any help on this

Sub SplitColumn()
Dim ws As Worksheet


Set ws = ThisWorkbook.Sheets("FuzzyMatched")
    lr = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row


  ws.Range(CL & "1:" & CL & lr).FormulaR1C1 = "=LEFT(RC[-1],FIND("", "",RC[-1])-1)"
  ws.Range("E1:E" & lr).FormulaR1C1 = "=RIGHT(RC[-2],LEN(RC[-2])-FIND("", "",RC[-2]))"
  
End Sub

 

[Joe4]

If you turn on the Macro Recorder, and record yourself typing it into Excel manually, it will record the code that you need for your formula.

 

[capson]

Thanks, that helped

This works

 ws.Range(CL & "1:" & CL & lr).FormulaR1C1 = "=IFERROR(LEFT(RC[-1],FIND("", "",RC[-1])-1),"""")"
  ws.Range("E1:E" & lr).FormulaR1C1 = "=IFERROR(RIGHT(RC[-2],LEN(RC[-2])-FIND("", "",RC[-2])),"""")"