What if your table is too big to fit on a page?
As long as each table will fit on a page, you could use something like this:
Code:
Sub KeepRowsTogether()
Dim oTbl As Table, oCel As Cell
For Each oTbl In ActiveDocument.Tables
oTbl.Range.Paragraphs.KeepWithNext = True
For Each oCel In oTbl.Rows.Last.Range.Cells
oCel.Range.Paragraphs.Last.KeepWithNext = False
Next oCel
Next oTbl
lbl_Exit:
Exit Sub
End Sub