Не могу объединить пустые ячейки таблицы Word - VBA

Формулировка задачи:

Задача в таблице Word объединить пустые ячейки

q10 = 0
    nb = 0
    Do While q10 < tb9.Rows.Count 'объединение в 4-й колонке
    q10 = q10 + 1
    sss = tb9.Cell(q10, 4).Range.Text 'чтение ячейки
    If Len(sss) = 0 Then  'определение начала участка пустых ячеек
    u = q10: nb = 1
    End If
    If Len(sss) <> 0 And nb = 1 Then 'определение конца участка пустых ячеек
    u2 = q10 - 1
    tb9.Cell(u, 4).Merge MergeTo:=tb9.Cell(u2, 4) 'объединение участка пустых ячеек
    nb = 0: u = 0: u2 = 0
    End If
    Loop

не работает условие определения простой ячейки, пробовал разное.... Прошу помощи!

Решение задачи: «Не могу объединить пустые ячейки таблицы Word»

textual
                            Листинг программы 
                        

                            Dim lsss As Integer
    Dim ss2 As String
    q10 = 0
    nb = 0
    Do While q10 < tb9.Rows.Count 
    q10 = q10 + 1
    ss2 = tb9.Cell(q10, 4).Range.Text
    lsss = Len(ss2)
    If lsss = 2 And nb = 0 Then
    u = q10 + 1: nb = 1
    End If
    If lsss > 2 And nb = 1 Then
    u2 = q10 '- 1
    tb9.Cell(u, 4).Merge MergeTo:=tb9.Cell(u2, 4)
    nb = 0: u = 0: u2 = 0
    End If
    Loop
                        