Требуется написать макрос - VBA

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

Добрый день! Помогите пожалуйста в написании макроса. Т.к. не разбираюсь в макросах. Пересмотрел множество примеров, но требуемого результата не нашел. На Листе1 файла Список существует таблица. Требуется разместить на Листе1 кнопку. При выделении строки А2 и нажатии на кнопку, нужно чтобы информация с ячейки A2 скопировалась информация на Лист2 в ячейку D7, на Листе1 также скопировалась информация с ячейки С2 в ячейку F7 на Лист2. Заранее спасибо. Соответственно при выделении строки А3, на Лист2 информация перезаписывалась в те же ячейки. Файл прилагается.

Решение задачи: «Требуется написать макрос»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub vvv()
Dim txt$, i%, n%
n = 7
txt = Cells(ActiveCell.Row, 1).Text
With Sheets("Лист2")
 .Range("F7:F14").ClearContents
 .Range("D7") = Cells(ActiveCell.Row, 1)
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
       If Cells(i, 1) = txt Then .Range("F" & n) = Cells(i, 3): n = n + 1
    Next
End With
End Sub