Заполнение таблицы средствами VBA

[parsn]

Есть Лист1. На нём таблица с кучей строк.
И есть Лист2. На нём таблица, в которой в компактном виде отображается содержимое ячеек отдельно взятой строки из таблицы на Лист1.
На Листе 2 есть ячейка (допустим R1C1). В неё пользователь вводит номер нужной строки из первой таблицы. Допустим, 5.
Как сделать так, чтобы по нажатию на кнопку программа присвоила бы значение ячейки Лист1!R5C4 ячейке Лист2!R3C3?
То есть 1) по значению в ячейке R1C1 на активном листе (Лист2) установить горизонтальную координату ячейки из которой будет браться значение и 2) присвоить значение одной ячейки другой.
С VBA только начинаю знакомиться.

[Maxx]

В модуль листа 2 поместите следующий код:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r, c As Long
r = Target.Row: c = Target.Column
  
If r = 1 And c = 1 Then
  a = Cells(1, 1).Value
  If (a = "" Or a <= 0) Then MsgBox "Введено некорректное значение!" Else Sheets("Лист2").Cells(3, 3).Value = Sheets("Лист1").Cells(a, 4).Value
End If

End Sub

[parsn]

Большое спасибо!