Как программно добавить строку в ексель?

[AnnNet]

Есть несколько заполненных строк, нужно на этом же листе вставить между ними чистую строку. Как это можно сделать программно?

[Rom1k06]

rows(1).Insert Shift:=xlDown

Если чтото неполучается можно воспользовантся макроридером
Нажить запись/добавить строку/ и посмотреть код.

[SAS888]

Если нужно вставить по пустой строке после каждой строки во всем диапазоне данных, то можно так:

Sub Vstavka()

    Dim i As Long
    Application.ScreenUpdating = False
    With ActiveSheet.UsedRange
    For i = .Rows.Count - .Row + 1 To .Row Step -1
        Rows(i).Insert
    Next
    End With

End Sub