копирование строк с функциями

[Sem_Wolf]

Доброго времени суток! подскажите, как решить такую задачку: есть строка в которой некоторые из ячеек имеют формулы с функциями, например такая:
=ВПР(СсылкаНаЯчейку;ОРГ!R2C1:R16C3; 2;ЛОЖЬ), где СсылкаНаЯчейку - ячейка слева в той же строке

строка копируется макросом :

Public Sub AddNewLine()

Set CurName = Test(ActiveCell().Row)
If Not (CurName Is Nothing) Then
Set CurRange = CurName.RefersToRange()
CurrentRow = CurRange.Rows(1).Row
Set MovedRow = CurRange.Rows(CurRange.Rows.Count)

ActiveCell().EntireRow.Select
Protect_OFF
Application.CutCopyMode = False
Selection.Copy
Selection.Insert Shift:=xlDown
CurName.RefersToR1C1 = "=R" + CStr(CurrentRow) + ":R" + CStr(MovedRow.Row)
NumRows = CurRange.Rows.Count
On Error GoTo NoFormula
Set RangeFormulas = ActiveWorkbook.Names(CurName.Name + "_Подвал").RefersToRange().SpecialC ells(xlCellTypeFormulas)
For Each CurCell In RangeFormulas.Cells
PosStart = InStr(CurCell.FormulaR1C1, "(")
StartFormula = Left(CurCell.FormulaR1C1, PosStart)
CurCell.FormulaR1C1 = StartFormula + "R[" + CStr(-NumRows - 1) + "]C:R[-1]C)"
Next
NoFormula:
Protect_ON
On Error GoTo 0
End If

End Sub
Все хорошо, появляется новая скопированная строка, но в старых строках (те которые копировали) в формуле
=ВПР(СсылкаНаЯчейку;ОРГ!R2C1:R16C3; 2;ЛОЖЬ) параметр СсылкаНаЯчейку меняется на ячейку новой строки. Как это исправить? Нужно данный параметр в новой строке заменять на ячейку новой строки, а старые строки оставлять без изменений. Файлик прилагаю.

[nilem]

Попробуйте СсылкаНаЯчейку сделать относительной (без долларов), тогда ссылка на ячейку в формуле вставляемой строки тоже будет относительной.

[Sem_Wolf]

Помогло , Спасибо большое! Отличный форум