Sub Macro1()
Dim i As Long
Dim oTable As Table
Dim oRng As Range
    Set oTable = ActiveDocument.Tables(1)
    For i = oTable.Rows.Count To 3 Step -1
        Set oRng = oTable.Rows(i).Cells(1).Range
        oRng.End = oRng.End - 1
        If oRng.Text = "Assessment/Category" Or oRng.Text = "" Then
            oTable.Rows(i).Delete
        End If
    Next i
    Set oTable = Nothing
    Set oRng = Nothing
End Sub