Парсинг конкретных таблиц - VBA

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

Поиск по форуму смотрел ответа не нашел.По тому спрашиваю новой темой. Имеется ссылка https://www.moex.com/ru/derivatives/, на этой странице есть 5 таблиц которые меня интересуют , а именно:Индексы,Акции,Облигации,Валюта,Товарные контракты. Ну вроде бы как ссылка вида https://www.moex.com/ru/contract.aspx?code=RTS-6.18 у меня получается изъять и т.д...Но,Хотелось Бы Находить именно эти 5 таблиц по отдельности, для каждой формировать свой массив куда и заносить ссылка для дальнейшего разбора, почему так?По тому что инструменты в этих таблицах порой добавляют либо убирают, соответственно и размер массива меняется , да и вообще на основании количества ссылок в одной из таблиц я хотел формировать уже данные в exel но вся проблема у меня в том что я не понимаю как обращаться именно к этим таблицам и пересчитывать количество этих ссылок в ней. А код которым я вытаскиваю от туда ссылка вот:

Sub uuu()
    Dim url$, htm$
    Dim tb, rw, cl, tr0, ah
    Dim a()
    Dim i&, j&
    url = "https://www.moex.com/ru/derivatives/"
    
        With CreateObject("msxml2.xmlhttp")
            .Open "GET", url, False
            .send
            Do: DoEvents: Loop Until .readyState = 4
            htm = .responsetext
        End With
        
With CreateObject("HtmlFile")
            .Body.innerHTML = htm
                For Each tb In .GetElementsByTagName("table")
                    ReDim a(1 To 45, 1 To 1)
                    tb.ClassName = "table1"
                        Select Case tb.ClassName
                            Case Is = "table1"
                                For Each tr0 In .GetElementsByTagName("tr")
                                    If tr0.ClassName = "tr0" Then
                                        For Each ah In .GetElementsByTagName("a")
                                            If ah.ClassName = "nulink10" Then
                                                For Each rw In tb.Rows
                                                    For Each cl In rw.Cells
                                                        i = i + 1
                                                            j = 1
                                                                a(i, j) = ah.OuterHtml
                                                            Exit For
                                                        Next
                                                    Exit For
                                                    Next
                                            End If
                                        Next
                                        Exit For
                                    End If
                                Next
                        End Select
                Exit For
                Next
        End With
End Sub

Взял его в теме на форуме ну и наковырял как видите) Может у кого есть мысли как это сделать? Спасибо.

Решение задачи: «Парсинг конкретных таблиц»

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

                            Dim IE As New InternetExplorer
 
 
Private Sub Form_Load()
Dim DIV As HTMLDivElement, TBL As HTMLTable
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
    IE.Navigate "https://www.moex.com/ru/derivatives/"
    Do Until IE.ReadyState = 4
        DoEvents
    Loop
For Each DIV In IE.Document.getElementsByClassName("table-scroller")
    For Each TBL In DIV.getElementsByClassName("table1")
        Debug.Print TBL.innerHTML
    Next
Next
IE.Quit
End Sub
                        