(VBA – HTML) Extracting different tables from a html page which uses slide panel

I was able to use VBA to extract a table from HTML source.
My problem now is that I need the information for the next following two days. (Today(forecast) + Tomorrow + Day after tomorrow).

The data from the table change accordingly the slide panel above the table.
The issue is that I can not find a way with my limited knowledge to change the code for the next days and extract the tables.

I have noticed that the are few changes in the html code when I use the slide panel such as:<g transform="translate(120,0)" - Today forecast<g transform="translate(180,0)" - Tomorrow<g transform="translate(240,0)" - The day after tomorrow.

Also few changes in some div tags and off course Table tag – but still same ID.

However, I have no idea how to link my VBA code with those changes and extract the information needed.
My code so far:

Dim HTMLDoc As New HTMLDocument
    Dim objTable As Object
    Dim lRow As Long
    Dim lngTable As Long
    Dim lngRow As Long
    Dim lngCol As Long
    Dim ActRw As Long
    Dim objIE As InternetExplorer
    Set objIE = New InternetExplorer
    objIE.navigate "https://fireweather.niwa.co.nz/region/Otago"
    objIE.Visible = True

    Do Until objIE.readyState = 4 And Not objIE.Busy
        DoEvents
    Loop
    Application.Wait (Now + TimeValue("0:00:06")) 'wait for java script to load
    HTMLDoc.body.innerHTML = objIE.document.body.innerHTML
    With HTMLDoc.body
        Set objTable = .getElementsByTagName("table")
        For lngTable = 0 To objTable.Length - 1
            For lngRow = 0 To objTable(lngTable).Rows.Length - 1
                For lngCol = 0 To objTable(lngTable).Rows(lngRow).Cells.Length - 1
                    ThisWorkbook.Sheets("Sheet1").Cells(ActRw + lngRow + 1, lngCol + 1) = objTable(lngTable).Rows(lngRow).Cells(lngCol).innerText
                Next lngCol
            Next lngRow
            ActRw = ActRw + objTable(lngTable).Rows.Length + 1
        Next lngTable
    End With
    Set objIE = New InternetExplorer
    objIE.navigate "https://fireweather.niwa.co.nz/region/Southland"

    Do Until objIE.readyState = 4 And Not objIE.Busy
        DoEvents
    Loop
    Application.Wait (Now + TimeValue("0:00:03")) 'wait for java script to load
    HTMLDoc.body.innerHTML = objIE.document.body.innerHTML
    With HTMLDoc.body
        Set objTable = .getElementsByTagName("table")
        For lngTable = 0 To objTable.Length - 1
            For lngRow = 0 To objTable(lngTable).Rows.Length - 1
                For lngCol = 0 To objTable(lngTable).Rows(lngRow).Cells.Length - 1
                    ThisWorkbook.Sheets("Sheet1").Cells(ActRw + lngRow + 1, lngCol + 1) = objTable(lngTable).Rows(lngRow).Cells(lngCol).innerText
                Next lngCol
            Next lngRow
            ActRw = ActRw + objTable(lngTable).Rows.Length + 1
        Next lngTable
    End With
    objIE.Quit