Function GetDeleted(oDoc As Document) As String
Dim oTable As Table
Dim oCell As Range
Dim i As Long
Dim sName As String
    Set oTable = oDoc.Tables(1)
    For i = 1 To oTable.Rows.Count
        If InStr(1, oTable.Cell(i, 1).Range.Text, "Deleted:") > 0 Then
            Set oCell = oTable.Cell(i, 2).Range
            oCell.End = oCell.End - 1
            sName = oCell.Text
            Exit For
        End If
    Next i
    GetDeleted = sName
    Set oTable = Nothing
    Set oCell = Nothing
End Function

Sub Test()
Dim sText As String
    sText = GetDeleted(ActiveDocument)
    If sText = "" Then
        MsgBox "There is no name in the cell", vbCritical
    Else
        MsgBox sText, vbInformation
    End If
End Sub