If the selection is in a table, this example splits the table.
If Selection.Information(wdWithInTable) = True Then
Selection.SplitTable
End If
This example splits the first table in the active document between the first and second rows.
ActiveDocument.Tables(1).Rows(2).Select
Selection.SplitTable