Ten kód vyhledá buňku s obsahem 4 a nahradí ho 3.
Musíš definovat co chceš přesněji. Respektive Excel musí přesně vědět odkud má vzít hodnotu a kam ji zapsat. Takže řekněme že stojíš na buňce, kam chceš vložit hodnotu.

Načteš si hodnotu, kterou hledáš
Hod = InputBox("Zadej hodnotu")

Vyhledej hodnotu

Set HPos = Cells.Find(What:=Hod, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False)

Otestuj, jestli se něco našlo, když ano přenes hodnotu

If Not HPos Is Nothing Then ActiveCell.Value = HPos.Value