Hát, ha már összebénáztam, bemásolom az én verziómat is az 2.-re:
Sub KERES()
Dim KERES, BeIr As Byte
KERES = Cells(1, 1).Value
BeIr = 2
Db = Application.CountIf(Range("1:65536"), KERES)
For i = 1 To Db Step 1
Cells.Find(What:=KERES, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Offset(0, 1).Value = BeIr
Next
End Sub