Something like this maybe (for a selected table) NOTE blank rows are deleted - I don't believe you can just hide rows as you can in Excel.
Sub zap_emptyRow()
Dim otbl As Table
Dim iRow As Integer
Dim iCol As Integer
Dim b_Text As Boolean
On Error Resume Next
Set otbl = ActiveWindow.Selection.ShapeRange(1).Table
If Not otbl Is Nothing Then
For iRow = otbl.Rows.Count To 1 Step -1
b_Text = False
For iCol = 1 To otbl.Columns.Count
If otbl.Cell(iRow, iCol).Shape.TextFrame.HasText Then b_Text = True
Next iCol
If Not b_Text Then otbl.Rows(iRow).Delete
Next iRow
Else
MsgBox "Something is wrong!"
End If
End Sub