Try:
Sub DeleteMultipleWords()
Dim arrWords()
Dim lngIndex As Long, lngTable As Long, lngCol As Long, lngRow As Long
Dim oRngCol As Range, oRng As Range
lngTable = InputBox("Which Table?")
lngCol = InputBox("Which Column?")
arrWords = Array("for", "and", "not", "nor", "but", "or")
Set oRng = ActiveDocument.Range
With oRng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute
End With
For lngIndex = LBound(arrWords) To UBound(arrWords)
With ActiveDocument.Tables(lngTable)
For lngRow = 1 To .Rows.Count
Set oRngCol = .Cell(lngRow, lngCol).Range
Set oRng = .Cell(lngRow, lngCol).Range
With oRng
With .Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = arrWords(lngIndex)
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
Do While .Execute
If oRng.Duplicate.InRange(oRngCol) Then
oRng.Text = ""
oRng.Collapse wdCollapseEnd
Else
Exit Do
End If
Loop
End With
End With
Next lngRow
End With
Next lngIndex
lbl_Exit:
Exit Sub
End Sub