Как скопировать данные по двойному клику мыши - VBA

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

Добрый вечер! Может быть кто-нибудь поможет подправить код в VB? Нужно, чтобы при двойном клике строка из первого листа (Прайс)копировалась на второй(Приложение №1) в определенную строку -6 (после шапки таблицы), а не после всего текста? Никак не могу сообразить, что надо сделать((( И с форматированием тоже беда - неплохо бы изменить стиль на обычный, а не тот, что в Прайсе, это возможно?

Решение задачи: «Как скопировать данные по двойному клику мыши»

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

                            Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Row < 8 Then Exit Sub
    
    Cancel = True
    Лист2.[6:6].Insert
    Лист2.[A6] = Application.Max(Лист2.[A:A]) + 1
    Лист2.[B6:E6] = Cells(Target.Row, 2).Resize(, 4).Value
    With Лист2.[A5].CurrentRegion
         .HorizontalAlignment = xlLeft
         .Borders.Weight = xlThin
         .Sort Лист2.[A5], xlAscending, Header:=xlYes
         '.Sort .Cells(1), xlAscending, Header:=xlYes
    End With
End Sub
                        