Private Sub Document_ContentControlOnExit(ByVal CCtrl As ContentControl, Cancel As Boolean)
Application.ScreenUpdating = False
Dim Tbl1 As Table, Tbl2 As Table, r As Long, i As Long, j As Long
If CCtrl.Title Like "Name#" Then
  Set Tbl1 = ActiveDocument.Tables(1)
  Set Tbl2 = ActiveDocument.Tables(2)
  With Tbl2
    For r = 2 To .Rows.Count
      .Cell(r, 2).Range.Text = 0
    Next
  End With
  With Tbl1
    For r = 1 To .Rows.Count
      With .Cell(r, 1).Range.ContentControls(1).Range
        If .Text Like "Position #" Then
          i = CLng(Split(.Text, " ")(1)) + 1
          j = CLng(Split(Tbl2.Cell(i, 2).Range.Text, vbCr)(0))
          Tbl2.Cell(i, 2).Range.Text = j + 1
        End If
      End With
    Next
  End With
End If
Application.ScreenUpdating = True
End Sub