Подфиксить макрос по удалению пустых строк в таблице.

[Vatorin]

Доброго дня форумчане.
Информации по теме нашел здесь много. Огромное спасибо всем, кто ранее отвечал в темах на подобные вопросы.
Не помню где стащил основу кода, автору отдельное спасибо.

Суть вопроса, макрос приведенный ниже отлично справился с 10 таблицами в документе, кроме одной.
В ней пустые строки отказывается удалять наотрез.
причина - объединенные ячейки, присутствующие в шапке таблицы. Как побороть?
*Если не сложно, ответ дайте как для ...начинающего. Не во все найденные по данной теме посты въехал и не все примеры у меня заработали...(

Код:

PHP код:

On Error Resume Next
  
  Dim oDocCurr As Document
  Dim oTbl As Word.Table
  Dim oCell As Cell
  Dim oRowRng As Range
  Dim iStart As Long
  Dim iEnd As Long
  Dim i As Long
  Dim j As Long
  Dim sEmptyString As String
  Dim lRowLength As Long
  Dim sRowText As String
  
  Set oDocCurr = ActiveDocument
  For j = oDocCurr.Tables.Count To 1 Step -1
    Set oTbl = oDocCurr.Tables(j)
    lRowLength = oTbl.Columns.Count + 1
    
   
    Application.ScreenUpdating = False
    
    
    For i = oTbl.Rows.Count To 1 Step -1
       
        sRowText = oTbl.Rows(i).Range.Text
        
         sRowText = Replace(sRowText, Chr(13), "")
        
        If Len(sRowText) = lRowLength Then
          
            oTbl.Rows(i).Delete
        End If
    Next i 


Таблица для примера: test.doc