Selection.SplitTable (Word)

Inserts an empty paragraph above the first row in the selection.

If the selection isn't in the first row of the table, the table is split into two tables. If the selection isn't in a table, an error occurs.

If Selection.Information(wdWithInTable) = True Then 
 Selection.SplitTable 
End If