oRow.Cells(1).Range.InsertAfter vbCr & arrList(lngIndex - 1) Else oRow.Cells(1).Range.InsertAfter vbCr & arrList(lngIndex - 1) End If