Доброе утро! Помогите исправить (возможно зациклить) выполнение макроса.

Скрытый текст

Sub Макрос1() Application.ScreenUpdating = False Dim straddress As String straddress = Sheets("Лист1").Range("z2").Value Sheets("Лист2").Select Range("A1:AQ30000").Clear            With ActiveSheet.QueryTables.Add(Connection:= _            "URL;" & straddress _            , Destination:=Range("A1"))            .FieldNames = True            .RowNumbers = False            .FillAdjacentFormulas = False            .PreserveFormatting = True            .RefreshOnFileOpen = False            .BackgroundQuery = True            .RefreshStyle = xlInsertDeleteCells            .SavePassword = False            .SaveData = True            .AdjustColumnWidth = True            .RefreshPeriod = 0            '.WebSelectionType = xlAllTables            .WebSelectionType = xlSpecifiedTables            .WebTables = "1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,,45,46,47"            .WebFormatting = xlWebFormattingNone            .WebPreFormattedTextToColumns = True            .WebConsecutiveDelimitersAsOne = True            .WebSingleBlockTextImport = False            .WebDisableDateRecognition = True            .WebDisableRedirections = False            .Refresh BackgroundQuery:=False           End With    Call Copy Application.ScreenUpdating = True End Sub

Суть в том, что есть динамический список (периодически обновляется) с веб-адресами по столбцу "Z" Листа1. Данные с веб-страницы вставляются в "A1" Листа2.
"Z2" - выбор веб-адреса из списка ручками. Макрос работает, но как сделать, чтобы макрос автоматически поочередно выбирал ВСЕ веб-адреса из списка столбца "Z", то бишь cначала "Z2" - Макрос1 выполнился, затем "Z3" и т.д. до ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

P.S. Файл ну очень большой)