Provided that the table matches exactly i.e. the same number of merged cells in each segment then the following should work

Sub Macro1()
Dim oTable As Table
Dim oCell As Range, sText
Dim i As Integer
    Set oTable = ActiveDocument.Tables(1)
    For i = oTable.Columns(1).Cells.Count To 2 Step -1
        oTable.Columns(1).Cells(i).Split 4, 1
    Next i
    For i = 2 To oTable.Rows.Count
        Set oCell = oTable.Rows(i).Cells(1).Range
        oCell.End = oCell.End - 1
        If Len(oCell) > 1 Then
            sText = oTable.Rows(i).Cells(1).Range.Text
        Else
            oCell.Text = sText
            oCell.Text = Replace(oCell.Text, Chr(13), "")
        End If
    Next i
lbl_Exit:
    Set oTable = Nothing
    Set oCell = Nothing
    Exit Sub
End Sub