Вот трассировка выполнения программы
i k
1 2
2 4
3 6
4 8
5 10
6 12
7 14
8 16
9 18
10 20
11 22
12 24
13 26
14 28
15 30
16 32
17 34
18 36
19 38
Чтобы выполнить этот фрагмент в VBA следует открыть окно проекта Microsoft Visual Basic, выбрать лист рабочей книги, ввести заголовок SUB, затем нажать Enter и в образовавшийся блок вставить свой код. Далее запустить на исполнение, нажав F5