Sub MergeData()
Dim Rng As Range, TblRw As Row
With ActiveDocument.Tables(1)
  For Each TblRw In .Rows
    Set Rng = TblRw.Cells(2).Range
    Rng.End = TblRw.Cells(4).Range.End
    Rng.Cells.Merge
  Next
End With
End Sub