Макрос: копирование строки с условием

[MaxxVer]

Добрый день, уважаемые!
Столкнулся с задачей написания несложного, вроде бы, макроса, подобные макросы видел, но переделать под свою конкретную задачу, не могу - в программировании не силен( Прошу Вашей помощи. Необходимо чтобы при запуске макроса, скопировалась строка на которой находится курсор и вставилась вниз (как вставка строки) + условие: вставить нужно только ячейки с текстовым форматом и с формулами остальные в новой строке обнулить. Пример прилагаю.

[MaxxVer]

Забыл добавить кнопку запуска макроса

[MaxxVer]

ну неужели никто не поможет???)

[19vitek]

как вариант.

Sub Кнопка1_Щелчок()
a_r = ActiveCell.Rows.Row
irow = Cells(65536, 3).End(xlUp).Row
Range(Cells(a_r, 1), Cells(a_r, 15)).Copy _
Range(Cells(irow + 1, 1), Cells(irow + 1, 15))
Range(Cells(irow + 1, 5), Cells(irow + 1, 7)) = 0
End Sub

[MaxxVer]

Спасибо, вот только как бы сделать так, чтобы строка добавлялась не вниз таблицы, а сразу под строкой, которую копируем?

[MaxxVer]

Понял, но тогда макрос вставляет данные с заменой нижней строки, а надо чтобы вставлял строку между копируемой и нижней...

[MaxxVer]

И вставлялись данные только с текстовым форматом и формулами...

[MaxxVer]

хээлп!!! Пожалуйста.

[MaxxVer]

Подскажите тогда хотя бы - как написать к вышеописанному макросу код для вставки строки, чтобы вставлялась пустая строка, а потом в нее копировались данные.

[19vitek]

а так?

Sub Кнопка1_Щелчок()
a_r = ActiveCell.Rows.Row
ActiveCell.Offset(1).EntireRow.Insert
Range(Cells(a_r, 1), Cells(a_r, 15)).Copy Range(Cells(a_r + 1, 1), Cells(a_r + 1, 15))
Range(Cells(a_r + 1, 5), Cells(a_r + 1, 7)) = 0
Range("l" & a_r + 1 & ":O" & a_r).Value = 0
End Sub