Help: Importing currency exchange rates from website for 3 months

[p45cal]

I'd have liked to use GetElementsByClassName but that doesn't seem to work with late binding, so a Heath Robinson approach:

Sub Extract_data()
Dim URL As String, links_count As Integer
Dim i As Integer, j As Integer, row As Long
Dim XMLHTTP As Object, html As Object
Dim tr_coll As Object, tr As Object
Dim td_coll As Object, td As Object
Dim tbl As Object
Dim td_col As Object

links_count = 0
row = Range("A" & Rows.Count).End(xlUp).row
    
For i = 0 To links_count
  If Range("L1") <> "" And Range("Q1") <> "" Then
    URL = "https://www.xe.com/currencytables/?from=" & Range("Q1") & "&date=" & Format(Range("L1"), "yyyy-mm-dd")
    ' Date and currency are dynamic
    Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
    XMLHTTP.Open "GET", URL, False
    XMLHTTP.send
    Set html = CreateObject("htmlfile")
    html.body.innerHTML = XMLHTTP.responseText
    mydate = Split(Split(XMLHTTP.responseText, "historicalRateTable-date"">")(1), "</p>")(0)
    Set tbl = html.getElementsByTagName("Table")
    Set tr_coll = tbl(0).getElementsByTagName("TR")
    For Each tr In tr_coll
      j = 1
      Set td_col = tr.getElementsByTagName("TD")
      If td_col.Length > 0 Then
        For Each td In td_col
          Cells(row + 1, j).Value = td.innerText
          j = j + 1
        Next
        Cells(row + 1, j).Value = mydate
        row = row + 1
      End If
    Next
  End If
Next
End Sub