Помогите запрограммить в Excele. - VB

Формулировка задачи:

Здравствуйте,
Поможет ли кто мне с решением одной неудобности.
В Экселе, есть одна страница и на ней в разных ячейках есть несколько чисел, сейчас я в ручную делаю так, одно из чисел увеличиваю на 1 и пускаю это на принтер, данное действие повторяется энное количество раз, можно ли сделать так, чтоб задействовав какойнить тригер (нажав там чтонить), это выполнилось автоматически один раз, или зациклилось на определённое количество раз.

Решение задачи: «Помогите запрограммить в Excele.»

textual
                            Листинг программы 
                        

                            <font color="blue">Dim</font> i%
<font color="blue">For</font> i=<font color="darkblue"><b>1</b></font> <font color="blue">To</font> <font color="darkblue"><b>5</b></font>
	Range(<font color="teal">"A1"</font>).Value=Range(<font color="teal">"A1"</font>).Value+<font color="darkblue"><b>1</b></font>
	Range(<font color="teal">"B2"</font>).Value=Range(<font color="teal">"B2"</font>).Value+<font color="darkblue"><b>1</b></font>
	Range(<font color="teal">"D5"</font>).Value=Range(<font color="teal">"D5"</font>).Value+<font color="darkblue"><b>1</b></font>
<font color="blue">Next</font>

                        