Sub M_snb() sn = Columns(1).SpecialCells(2) For j = 1 To ubound(sn) sn(j,1) = Left(sn(j, 1), 142) & "</span><span itemprop=""addressLocality"">" & Mid(sn(j, 1), 143) Next Columns(1).SpecialCells(2).Offset(, 1) = sn End Sub