Jake,

Maybe you could use a macro something like:

Dim oTable As Table
Dim oRng As Range
Dim oCell As Cell
Dim pContent As String
Dim i As Integer
Dim rowLast As Long


Set oTable = ActiveDocument.Tables(1)
rowLast = oTable.Rows.Count
i = 0
Set oRng = oTable.Range
For Each oCell In oRng.Columns(1).Cells
pContent = oCell.Range.Text
pContent = Left(pContent, Len(pContent) - 2)
If pContent = "Yes" Then
i = i + 1
End If
Next
ActiveDocument.Tables(1).Cell(rowLast, 1).Range.Text = i
End Sub