Вставка строки макросом при выборе значения из списка

[MaxxVer]

Добрый день уважаемые! Прошу Вашей помощи в написании несложного макроса. Во вложении пример. Необходимо при выборе значения из списка в ячейке А34, добавить 35 строку с копированием в нее формул и форматов из строки 34. При выборе значения из новой 35 строки, проделать то же самое и т.д.

[Watcher_1]

Ловите! макрос срабатывает при выборе из списка в первом столбце

[MaxxVer]

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

[MaxxVer]

Подскажите, пожалуйста, а как поправить код чтобы можно было задать диапазон, а не весь столбец (например A34:A50)?

[Watcher_1]

Private Sub Worksheet_Change(ByVal Target As Range)
    myR = Target.Row
    If Target.Column = 1 And Range("A" & myR) <> "" And myR >= 34 And myR <= 50 Then
        Application.EnableEvents = False
        Range("A" & myR & ":X" & myR).Copy
        Range("A" & myR + 1).Insert Shift:=xlDown
        Range("A" & myR + 1) = ""
        Application.CutCopyMode = False
        Application.EnableEvents = True
    End If
End Sub

[MaxxVer]

Еще раз большое спасибо!