Удаление пустых строк в таблице ворда

For j = 2 To oTable.Columns.Count Step 1

 For j = 2 To oTable.Rows(i).Cells.Count

 If (oTable.Columns.Count * oTable.Rows.Count) = oTable.Range.Cells.Count Then ' ячеек = колонок * строк

Option Explicit
Sub DelEmptyRows()
Dim i, d, xStr, xRowNum, xColsCount, tCells, MaxCells
' ВСЕ строки, в которых есть объединённые или непустые ячейки - ПРОПУСКАЮТСЯ
  Application.ScreenUpdating = False
  For d = 1 To ActiveDocument.Tables.Count 'перебираем таблицы текущего документа
    xRowNum = 0 ' изначально ставим текущей несуществующую строку за пределами таблицы
    xColsCount = -1  ' и отмечаем её непустой, чтобы не пытаться удалить
    Set tCells = ActiveDocument.Tables(d).Range.Cells 'Массив ячеек таблицы
    MaxCells = ActiveDocument.Tables(d).Columns.Count
    For i = tCells.Count To 1 Step -1 'перебор ЯЧЕЕК таблицы от последней к первой
      If tCells(i).RowIndex <> xRowNum Then 'Наша ячейка в строке, отличающейся от строки предыдущей ячейки
        If xColsCount >= 0 Then tCells(i + 1).Range.Rows.Delete 'В строке нет ни одной заполненной ячейки
        xRowNum = tCells(i).RowIndex ' Устанавливаем новый номер обрабатываемой строки
        xColsCount = MaxCells ' Счётчик ячеек строки - от последней к первой
      End If
      If xColsCount > 0 Then 'Если в строке ещё не встретилась заполненная ячейка
        xColsCount = xColsCount - 1 'уменьшаем счётчик ячеек
        xStr = Trim(Replace(Replace(tCells(i).Range.Text, Chr(13), ""), Chr(7), "")) ' что в ячейке, за вычетом разделителей.
        If Len(xStr) > 0 Then xColsCount = -1 ' Если какая-то ячейка в строке НЕ ПУСТАЯ - эту строку помечаем неудаляемой
      End If
    Next i
    If xColsCount >= 0 Then tCells(1).Range.Rows.Delete ' удаляем первую строку, если она пустая
  Next d
  Application.ScreenUpdating = True
  MsgBox "Я кончила! Твоя очередь...", vbInformation
End Sub