Sub ReplaceInTable()
Dim FirstName As String
Dim LastName As String
Dim oRng As Range
Dim oCell As Range
Dim oTable As Table
Dim oRow As Row
Dim bText As Boolean
Dim i As Long
    Set oTable = Selection.Tables(1)
    FirstName = InputBox("Type text", "")
    LastName = InputBox("Search BD No", "")
    For i = 1 To oTable.Rows.Count
        bText = False
        Set oRow = oTable.Rows(i)
        Set oRng = oRow.Cells(1).Range
        If InStr(1, oRng.Text, LastName) > 0 Then
            Set oCell = oRow.Cells(3).Range
            oCell.End = oCell.End - 1
            If Len(oCell) > 0 Then bText = True
            oCell.Collapse 0
            If bText = True Then
                oCell.Text = Chr(32) & FirstName
            Else
                oCell.Text = FirstName
            End If
        End If
    Next i
lbl_Exit:
    Set oTable = Nothing
    Set oRow = Nothing
    Set oCell = Nothing
    Set oRng = Nothing
    Exit Sub
End Sub