You changed object cell to be rngCell but have not updated that code.

Intersect(rngCell.EntireRow, Range("i:i,o:o,u:u,aa:aa,ag:ag,am:am,as:as,ay:ay,be:be,bh:bh"))
                    .FormulaR1C1 = _
"=IF(RC[-2]="""","""",IF(RC[-1]="""",RC [-2],CONCATENATE(RC[-2],""+"",RC[-1])))"