оптимизировать макрос

[Kek]

Был откопан файл с макросом, который скачивает файлы при нажатии на обновить.
1) он скачивает в виде первого столбца (даты). необходимо в виде второго столбца (отдела).
2) что дописать чтобы запускался автоматически?

Public Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
                                   (ByVal pCaller As Long, ByVal szURL As String, _
                                    ByVal szFileName As String, ByVal dwReserved As Long, _
                                    ByVal lpfnCB As Long) As Long
                                    
Sub ostdownloader()
    vPath = ActiveWorkbook.Path
    Range("2:65535").Clear
    mag = Format(Sheets("mag").Cells(Sheets("mag").Cells(1, 1).Value + 1, 1).Value, "000")
    mag_id = Sheets("mag").Cells(Sheets("mag").Cells(1, 1).Value + 1, 2).Value
'   msgbox mag & " - " & mag_id
    Set Conn = CreateObject("ADODB.Connection")
        Conn.Open "Provider=SQLOLEDB;User ID=;Password=@;Initial Catalog=OST;Data Source=PSTOR" & mag
        Conn.CommandTimeout = 0
    Set rstADO = CreateObject("ADODB.Recordset")
    dat = Format(Cells(1, 1), "yyyy-mm-dd") '  " & dat & "
    Sql$ = "select DISTINCT LOG_NUMBER, DEPARTMENT_ID from Rupture where (DATE_F > CONVERT(DATETIME, '" & dat & " 00:00:00', 102)) AND (DATE_F < CONVERT(DATETIME, '" & dat & " 23:59:59', 102)) "
    Set rstADO = Conn.Execute(Sql)
    Cells(2, 1).CopyFromRecordset rstADO
    Range("2:65535").NumberFormat = "0"
    Conn.Close
    rrow = 2
    Do While Cells(rrow, 1).Value <> ""
        fName = Cells(rrow, 1).Value
        link = "http://prs
Sheets("rayon").Cells(Cells(rrow, 2).Value, 2).Value & "&P_RLV=" & fName & "&rs%3aCommand=Render&rs%3AFormat=EXCEL"
        Cells(rrow, 3).Value = link
'       msgbox vPath & "\" & fName & ".xls"
         DownloadFile link, vPath & "\" & fName & ".xls"
         rrow = rrow + 1
    Loop
End Sub


Function DownloadFile(FromPathName, ToPathName) As Boolean
    DownloadFile = URLDownloadToFile(0, FromPathName, ToPathName, 0, 0) = 0
End Function

[Kek]

могу добавить файл, если что то есть непонятное

[Kek]

удаляйте тему
спасибо за помощь