Как искать ячейки по тексту, который находится в ячейке рядом?

[PurpleSky]

Например, таблица с фруктами и их количеством. Имеется кнопка макро, которая добавляет 10 яблок. Вот её код:

Sub AutoShape1_Click()
Range("b2").Value = Range("b2").Value + 10
End Sub

Но надо часто вставлять или уберать ряды, поэтому ячейка с количеством яблок меняят адрес.



Если теперь нажать на кнопку, прибавится 10 бананов, а не яблок.

Как сделать так, что бы находилась ячейка с текстом "Яблоки", а затем 10 прибавлялось в следующую ячейку на право?

[SAS888]

Например, так:

Sub AutoShape1_Click()
    Dim x As Range: Set x = [A:A].Find("Яблоки")
    If Not x Is Nothing Then x.Next = x.Next + 10
End Sub