Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim i As Long, j As Long, k As Long, l As Long
With ActiveDocument.Tables(2)
  If ContentControl.Range.InRange(.Range) Then
    For i = 2 To .Rows.Count - 1
      With .Cell(i, 2).Range.ContentControls(1)
        If .Range.Text <> .PlaceholderText Then
          k = k + 1
          For j = 1 To .DropdownListEntries.Count
            If .DropdownListEntries(j) = .Range.Text Then
              l = l + .DropdownListEntries(j).Value
              Exit For
            End If
          Next
        End If
      End With
    Next
    With .Rows.Last.Cells(2).Range
      If k > 0 Then
        .Text = Format(l / k, "0.00")
      Else
        .Text = vbNullString
      End If
    End With
  End If
End With
End Sub