Не работает макрос Excel - VBA

Формулировка задачи:

Здравствуйте. Есть задача, нужен макрос который будет копировать указаные ячейки и указаной строки, и переносить их на новый лист. Я указываю строку, он копирует на другой лист и со следующей строки копирует те же столбцы. Один человек скинул уже готовый макрос и готовую excel таблицу где макрос уже встроен и работает так как мне нужно. Как можно вытянуть готовый макрос ? или можете подправить уже готовый макрос ? Спасибо заранее за помощь P.S. Прикрепил файл excel и код.

Option Base 1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = Columns.Count Then
Dim sss
sss = Array(3, 4, 5, 6, 9, 12) 'номера столбов
With Sheets(2)
r = .Cells(Rows.Count, 3).End(xlUp).Row + 1
For i = 1 To UBound(sss)
.Cells(r, sss(i)) = Cells(Target.Row, sss(i))
Next i
.Select
End With
Beep
End If
End Sub

Решение задачи: «Не работает макрос Excel»

textual
                            Листинг программы 
                        

                            Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = Target.EntireRow.Address Then
       Dim r1&, r2&, c 'As Variant
       r1 = Target.Row
       r2 = Лист2.Cells(Rows.Count, 3).End(xlUp).Row + 1
       For Each c In Array(3, 4, 5, 6, 9, 12)
           Лист2.Cells(r2, c) = Cells(r1, c)
       Next
    End If
End Sub
                        