Здравствуйте. Начал изучать VBА. Делаю макрос для вставки в предварительно выделенные ячейки номеров по порядку (надо без использования формул экселя)

Пишу по памяти, с телефона - прошу прощения за синтаксические ошибки, если таковые будут в коде.

sub Nummer ()

dim i as integer, r as range
set r = selection
msgbox("Количество выделенных ячеек "& CStr (r.count))
for i = 1 to r.count
r(i).value = i
next

end sub

При выделении ячеек и запуске макроса выдается сообщение о количестве выделенных ячеек и происходит их заполнение порядковыми номерами. Однако в случае выделения нескольких диапазонов ячеек спомощью ctrl, их количество определяется верно, а вот заполнение происходит от первого диапазона и без пропусков далее, даже по невыделенной области. Почему так происходит, и как сделать правильно? Спасибо.

Опаньки! ... А есть ли возможность отмены действий макроса? По ошибке выделил не те ячейки и применил макрос. Информация в ячейках затерлась. Отмена не работает :(
Как-то возможно предусмотреть такой случай?

З.Ы. за ответы спасибо. Все работает как надо. Вопрос (скорее риторический, так как убедился что все работает) по последнему примеру переменная rr не нуждается в объявлении? И какой у нее тип? Range?