Macro to find duplicate value and replace adjacent cell with different value

Hi.

I have a range of different fruits and their respective costs and one of the fruits, we'll use "Apple and crabapple", the price went up. I would like to update the cost of this fruit by choosing "Apple and crabapple" from a drop down list (which I use from data validation) entering the new cost in the adjacent cell and hitting a macro button that will update the cost of this fruit from the range. I would like the macro to find the duplicate value of "Apple and crabapple" and replace the cost with the new cost.
Please see this attachment Fruits.xlsm

Maybe:

Sub kosherboywww()
Dim i As Long
For i = Range("A" & Rows.count).End(3)(1).Row To 2 Step -1
    If Range("A" & i).Value = Range("F4").Value Then
        Range("B" & i).Value = Range("H4").Value
    End If
Next i
End Sub

Thank you! Your code is short and to the point and it worked like a charm!

You're welcome. Glad to help out and thanks for the feedback.