For Each celija In ActiveCell.CurrentRegion.Cells
    If c.Value = vrijednost  Then celija.Value = vrijednost2
Next