Sub Загрузка_часов() 'Объявляем переменные
    Dim URL As String, DestinationFile As String
    Dim C As Integer 'для столбика
    Dim R As Integer 'для строки
    Dim yy As Integer
    Dim mm As Integer
    Dim code As String
        Application.ScreenUpdating = False 'отключаем обновление экрана
        R = Лист4.[A6] 'Определяем номер строки с гиперссылками по которым нужно заполнить
        yy = Лист4.[A1] 'Год
        mm = Лист4.[A2] 'Месяц
            code1 = Cells(2, 2) 'код региона с сайта
            Workbooks.Open Filename:= _
                "http://elira.pro/Forecast/DownloadForecastFile/"; & "/" & code1 & "/" & yy & "/" & mm & "?type=2"
            Range("B7:B29").Copy
            ActiveWindow.Close
            Cells(R + 1, 1).Select
            ActiveSheet.Paste
        For C = 2 To 37 Step 4 'цикл по столбикам в установленном диапазоне в каждом 4 столбике
            code2 = Cells(2, C)
            Workbooks.Open Filename:= _
                "http://elira.pro/Forecast/DownloadForecastFile/"; & "/" & code2 & "/" & yy & "/" & mm & "?type=2"
            Range("C7:E29").Copy
            ActiveWindow.Close
            Cells(R + 1, C + 1).Select
            ActiveSheet.Paste
        Next  'следующая ячейка установленного диапазона
        Application.ScreenUpdating = True 'включаем обновление экрана
        MsgBox "Загрузка пиковых часов за " & Лист4.[A11] & " " & Лист4.[D11] & " успешно завершена!", vbInformation

End Sub