Some clues to adding tables
Merging if text s too long would be trick but you can compare the boundwidth of the text with the cell width to see if it is needed and take action.
Sub addTBL()Dim osld As Slide
Set osld = ActiveWindow.View.Slide
With osld.Shapes.AddTable(NumRows:=4, NumColumns:=4)
.Table.Cell(1, 1).Shape.TextFrame.TextRange = "Row 1"
.Table.Cell(1, 2).Shape.TextFrame.TextRange = "Row 2 and there's more"
MsgBox .Table.Cell(1, 2).Shape.TextFrame.TextRange.BoundWidth & ">> " & .Table.Cell(1, 2).Shape.Width
End With
End Sub