Range("A2").Select
Selection.FormulaArray = _
"=LEFT(R[-1]C,MAX(IF(ISERROR(SEARCH(""OR"",LEFT(R[-1]C,500),ROW(OFFSET(INDIRECT(""A3""),,,LEN(LEFT(R[-1]C,500)))))),0,SEARCH(""OR"",LEFT(R[-1]C,500),ROW(OFFSET(INDIRECT(""A3""),,,LEN(LEFT(R[-1]C,500)))))))+1)"
Range("A3").Select
Selection.FormulaArray = _
"=LEFT(RIGHT(R[-2]C,LEN(R[-2]C)-LEN(R[-1]C)-1),MAX(IF(ISERROR(SEARCH(""OR"",LEFT(RIGHT(R[-2]C,LEN(R[-2]C)-LEN(R[-1]C)-1),500),ROW(OFFSET(INDIRECT(""A3""),,,LEN(LEFT(RIGHT(R[-2]C,LEN(R[-2]C)-LEN(R[-1]C)-1),500)))))),0,SEARCH(""OR"",LEFT(RIGHT(R[-2]C,LEN(R[-2]C)-LEN(R[-1]C)-1),500),ROW(OFFSET(INDIRECT(""A3""),,,LEN(LEFT(RIGHT(R[-2]C,LEN(R[-2]C)-LEN(R[-1]C)-1),500)))))))+1)"