Задача: по определенному принципу объединить разные ячейки. код ниже использовался для этого

If (j_nach > 0) Or (j_schet > 0) Then s = Worksheets(1).Cells(j_nach, 3).text + " "
For Z = 1 To j_schet + 1
a = Worksheets(1).Cells(j_nach + Z, 2).Text + "--" + Worksheets(1).Cells(j_nach + Z, 3).Text + " "
s = s + a
Next Z
Worksheets(1).Cells(j_nach, 5).Value = s
Else: j_schet = 0
j_nach = 0
s = ""
End If

Проблема в том, что в каждой ячейке форматирование смешанное(т.е слово-курсив, следующие-жирное разный шрифт и ..), а их нужно склееить.
Файл приложен
Вопрос как программно получить ячейку для склеивания.