Ошибка выполнения 1004: это действие не будет работать при множественном выборе

Question

Прежде всего мне нужно сообщить вам, что я вообще не умею программировать. Я нашел этот код в Интернете.Он работал для того, что мне нужно было сделать, теперь он дает мне ошибку времени выполнения 1004.

Что мне нужно сделать этот код, это добавить строку и сохранить уравнения, которые находятся в предыдущих строках,

Я не знаю, что делать, чтобы устранить эту ошибку.Как я уже говорил, у меня нет опыта программирования.Я надеюсь, что меня не унизят, потому что я не знаю, что я делаю.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice 20160725
Cancel = True
Target.Offset(1).EntireRow.Insert
Target.EntireRow.Copy Target.Offset(1).EntireRow
On Error Resume Next
Target.Offset(1).EntireRow.SpecialCells(xlConstants).ClearContents
End Sub

Выделенная строка имеет вид: "Target.EntireRow.Copy Target.Offset (1) .EntireRow "

Ниже приведены формулы в столбцах, которые необходимо добавить в следующую строку при двойном щелчке.

Начиная со столбца N и заканчивая столбцом AB.

Column N
=IF(ISNUMBER(SEARCH("Avox Production",$B$3:$B$3590)),"1","")

Column O
=IF(ISNUMBER(SEARCH("Avox Packaging",$B$207:$B$3590)),"1","")

Column P
=IF(ISNUMBER(SEARCH("Cuvette Production",$B$207:$B$3590)),"1","")

Column Q
=IF(ISNUMBER(SEARCH("Cuvette Packaging",$B$207:$B$3590)),"1","")

Column R
=IF(ISNUMBER(SEARCH("Incision Production",$B$207:$B$3590)),"1","")

Column S
=IF(ISNUMBER(SEARCH("Incision Packaging",$B$207:$B$3590)),"1","")

Column T
=IF(ISNUMBER(SEARCH("Instrument Production",$B$207:$B$3590)),"1","")

Column U
=IF(ISNUMBER(SEARCH("Instrument Packaging",$B$207:$B$3590)),"1","")

Column V
=IF(ISNUMBER(SEARCH("Instrument Service",$B$207:$B$3590)),"1","")

Column W
=IF(ISNUMBER(SEARCH("R & D",$B$207:$B$3590)),"1","")

Column X
=IF(ISNUMBER(SEARCH("Reagent Lab",$B$207:$B$3590)),"1","")

Column Y
=IF(ISNUMBER(SEARCH("Tubes",$B$207:$B$3590)),"1","")

Column Z
=IF(ISNUMBER(SEARCH("Verify Now",$B$3:$B$3590)),"1","")

Column AA
=IF(ISNUMBER(SEARCH("Finished Goods",$B$3:$B$3590)),"1","")

Column AB
=IF(ISNUMBER(SEARCH("Warehouse",$B$3:$B$3590)),"1","")

Этот код работал нормально около 5 недель.Я не знаю, сделал ли кто-то случайно что-то, из-за чего код не работал.