Добавление строк в Excel

[Sandra_83]

Привет всем, подскажите как решить проблему.

Есть таблица в Excel, в которую пользователи будут вносить значения.
Необходимо по нажатию кнопки добавлять в эту таблицу строки.
Проблема в том, что строка должна вставляться без значений, но с расчетными формулами в тех колонках, где это есть.

Sub AddRow(ShTittle)
ThisWorkbook.Sheets(ShTittle).Activate
Selection.Activate
ActiveCell.Offset(1, 0).EntireRow.Insert
End Sub

Так я просто вставляю строку. Если копировать текущую строку, то копируюся и все значения.

[HandKot]

1)держать пустую строку с формулами и копировать оттуда
2) ThisWorkbook.Sheets(ShTittle).Cells(i,j).Formula = "здесь задовать формулу"

[uhm]

Есть еще способ, указанный KL в этой теме:

http://bbs.vbstreets.ru/viewtopic.php?t=27969

[Sandra_83]

Спасибки, очень помогло, особенно ссылка.

[Sandra_83]

Есть еще вопрос.

Лист, где находится таблица Propected и можно вставлять значения только в разрешенном Range.
Необходимо иметь возможность вставлять строчки тоже только в пределах таблицы. Как сделать проверку на границы таблицы, если нижнее поле четко не задано?

Сейчас код такой.

Sub RowAdd(ShtName)

Application.ScreenUpdating = False
Selection.Activate
ThisWorkbook.Sheets(ShtName).Activate

ThisWorkbook.Sheets(ShtName).Unprotect (pass)
On Error Resume Next
ActiveCell.EntireRow.Copy
ActiveCell.Offset(1, 0).EntireRow.Insert
ActiveCell.Offset(1, 0).PasteSpecial (xlPasteAll)
ActiveCell.EntireRow.SpecialCells(xlCellTypeConstants).ClearContents
Cells(ActiveCell.Row, 1).Select
Application.CutCopyMode = False

ThisWorkbook.Sheets(ShtName).Protect (pass)
Application.ScreenUpdating = True

End Sub

[uhm]

Если у тебя известна строчка, ниже которой нельзя вставлять строки, присвой ей имя на листе (например, "the_end"), и делай проверку, что
ActiveCell.Row<Range("the_end").Row

[Sandra_83]

Спасибо большущее, я видно туплю )))