getting halftime results from betexplorer

[labirynth]

Hello everyone,
hope you are all doing fine

So I have this macro and I am able to get the entire rounds and Fulltime results from betexplorer.com .

I would also like to get the halftime results of every round too, but I still have no idea how to do it.
Could you please have a look? I searched the forum, john_w has done an amazing job with one macro but that macro takes also the odds of total goals and takes a lot more time than this macro here.

Thank you

Sub Results()

'location of your HTTP
Application.ScreenUpdating = False
URLVal1 = Range("http!A2")

Application.StatusBar = Sheets("http").Range("I2").Value & Sheets("http").Range("A2").Value
'include some instruction to clear the previous collected data from your download sheet
Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 8"

Sheets("ScrapeData").Activate
Cells.Select
    Selection.ClearContents

Sheets("ScrapeData").Activate

With Sheets("ScrapeData").QueryTables.Add(Connection:= _
"URL;" & URLVal1, Destination:=Range( _
"$A$2"))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
DATA_SELECTION:
'.WebSelectionType = xlEntirePage
.WebSelectionType = xlSpecifiedTables
.WebTables = "1"
DATA_FORMATTING:
'.WebFormatting = xlWebFormattingAll
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = False
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = True
.WebDisableRedirections = True
.Refresh BackgroundQuery:=False

End With

For Each qtb In ActiveSheet.QueryTables
qtb.Delete
Next
Do While ActiveWorkbook.Connections.count > 0

ActiveWorkbook.Connections.Item(ActiveWorkbook.Connections.count).Delete

Loop

End Sub

 

[labirynth]

no one?