Помогите новичку, вставка строки

[avea]

ПРоблема стара, но что-то не выходит
на лист приходит табличка из web-запроса, и необходимо одну строчку из таблицы перенести на другой лист и постоянно добавлять на этот лист новые значения после обновления web-запроса
Начал на макросе, но как правильно вставлять эту строчку?
Код такой, но не вставляет записи автоматически, в чем ошибка

Dim rg As String
Dim n As Integer
Sheets("Лист1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("A3:D3").Select
rg = Selection.Copy
Sheets("Лист2").Select
RowSource = Range("A1:D1").CurrentRegion.Address
If Range("A1").FormulaR1C1 = Empty Then
Range("A1").Value = rg
Else: n = Range("A1:D1").Rows.Count
Cells(n + 1, 1).Value = rg
End If

[GSerg]

Для начала было бы интересно узнать, как этот код вообще удалось запустить.