Перемещение ячеек выбранного диапазона на 1 строку вниз

[KulaGGin]

Помогите макросом. У самого никак не получается написать 

Нужен макрос, который переместит все ячейки столбца А в выбранном диапазоне на 1 строку вниз. Скажем, я выбрал диапазон строк с 1 по 15:


Нужно, чтобы макрос переместил все ячейки столбца А в выбранном диапазоне на 1 строку вниз.

[cheshiki1]

что мешает добавить строку выше?

[KulaGGin]

Большое спасибо за совет. Это решило мою проблему:

Код Выделить Развернуть

Selection.Cells(1, 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Я - чайник в Excel и VBA, и мне в голову сразу не пришло, что можно просто вставить пустую ячейку со смещением вниз, там, где мне нужно.