макрос в Exсel вставка строки и копирование формул

[Domk]

Поможите люди добрые!!!
Очень нужно автоматизировать частоповторяющуюся операцию Этапы:
1. вставка строки там, где курсор
2. вставка формул из строки 1 в новую строку
3. оставление курсора в столбце А новой строки

Заранее огромное спасибо!

[Pavel55]

Попробуйте

Код: Выделить всё

Sub Test()
    ActiveCell.EntireRow.Insert
    Rows(1).Copy
    Cells(ActiveCell.Row, 1).PasteSpecial Paste:=xlPasteFormulas
    Application.CutCopyMode = False
    Cells(ActiveCell.Row, 1).Select
End Sub

[Domk]

Огромное спасибо! Очень помогли!