Вот пример числовых значений в диапазоне от A2 до A78 . Поместите этот код в стандартный модуль:
Sub Incrementer() Dim rr As Range Set rr = Range("A2:A78") For Each r In rr r.Value = r.Value + 1 Next r End Sub
Поместите кнопку (или другую фигуру) на лист, содержащий данные, и назначьте макрос кнопке.