Here are a couple of macros:

```
Sub FindCellWithSymbol()
Dim rng As Range
Set rng = ActiveDocument.Range
With rng.Find
.Text = ChrW(61554)
.Forward = True
Do While .Execute
If rng.Tables.Count = 1 Then
rng.Expand wdCell
rng.Select
Exit Do
Else
rng.Collapse wdCollapseEnd
rng.End = ActiveDocument.Range.End
End If
Loop
End With
End Sub
Sub FindAndReplaceSymbols()
Dim rng As Range
Set rng = ActiveDocument.Range
With rng.Find
.Text = ChrW(61554)
.Forward = True
Do While .Execute
rng.InsertSymbol Font:="Wingdings", CharacterNumber:=-3930, Unicode:=True
rng.Collapse wdCollapseEnd
rng.End = ActiveDocument.Range.End
Loop
End With
End Sub
```