Скопировать столбец с формулами макросом

[cerberochek]

Добрый вечер уважаемые!

У меня возник такой вопрос:
Как вставить скопированный столбец с формулами перед столбцом, который копирую с помощью макроса?

Может непонятно написал вопрос, но вручную я это делаю так:
копирую весь столбец, потом клацаю правой кнопкой и выбираю "Вставить скопированные ячейки".

Спасибо за Ваше внимание!

[kuklp]

Ну и запишите Ваши действия макрорекордером.

[cerberochek]

Кстати тоже вариант, по крайней мере теперь я вижу код как это можно сделать:

Columns("D:E").Select
Selection.Copy
Selection.Insert Shift:=xlToRight

Правда тут я два столбца скопировал)

[kuklp]

И оптимизируем:

Public Sub ww()
    Columns(5).Copy
    Columns(5).Insert Shift:=xlToRight
    Application.CutCopyMode = 0
End Sub

[cerberochek]

Да, спасибо, я тоже уже дошел до оптимизации)