VBA скрипт для извлечения информации с веб-страницы

Формулировка задачи:

Здравствуйте!
У меня такая проблема: Есть файл excel c 1020 гиперссылками, мне нужно пройти по каждой из них и автоматически выгрузить в таблицу excel конкретную информацию, а именно - указанный на данной странице адрес сайта со ссылкой.
На форуме видела похожую тему: https://www.sql.ru/forum/360384/kak-vytashhit-dannye-s-web-stranicy, и на основе представленных там кодов написала собственный код, однако, так как знания VBA у меня начальные, то он, разумеется, не работает.
Помогите, пожалуйста, разобраться и понять, как сделать все правильно и так, чтобы код заработал.
Буду очень благодарна за помощь!

Sub SiteSearch()

Dim i, s, o As New WinHttp.WinHttpRequest

For i = 1 To 1020

o.Open "GET", Cells(i, 1).Hyperlinks(1).address, False
' Тут я пытаюсь дать ссылку на все гиперссылки страниц, расположенные в первом столбце моего excel файла. 

    Sub companysite()
    Dim s, z, t1, t2, site
    s = "

Решение задачи: «VBA скрипт для извлечения информации с веб-страницы»

textual
                            Листинг программы 
                        

                            Option Explicit

Sub SiteSearch()

Dim i As Integer
Dim s As String
Dim o As New WinHttp.WinHttpRequest

For i = 1 To 1020
    o.Open "GET", Cells(i, 1).Hyperlinks(1).Address, False
    o.Send
    o.WaitForResponse
    s = o.ResponseBody
    Cells(i, 2).Value = CompanySite(s)
Next

Set o = Nothing

End Sub

Function CompanySite(s As String) As String

Dim z As Integer
Dim t1 As Integer
Dim t2 As Integer

z = InStr(1, s, "Web-site Adress")
If z > 0 Then
    t1 = InStr(InStr(z, s, "<span"< span="">), s, ">") + 1
    t2 = InStr(t1, s, "<!--"</span-->)
    CompanySite = Mid(s, t1, t2 - t1)
End If

End Function
</span"<>
                        