I'm trying to sift through game logs on the NFL website and pull data from it. I think I've got my code working almost completely except for one thing. To switch between seasons for a certain player there is a drop down box with an OnCHange event that takes me to a different web page, because each seasons stats are stored in a separate web page. I'm doing this using a MSXML2.XMLHTTP60 request instead of an IE browser, and I'm not sure how to update the HTML doc where I actually parse the data. I had been struggling with selecting and clicking on the appropriate season in the dropbox but I think I have fixed that, seeing as I'm not getting any more errors. However, instead of getting the stats from each different season, I just get several copies pasted in my Excel Workbook of the same seasons stats. If all of that makes sense and someone can help me here is my complete VBA code. I visit this forum frequently when I need help but have never posted anything, so I am apparently not allowed to post the URL so you all can see the HTML code. Anyway, it can be found by searching for Le'veon Bell game logs on the internet and using the NFL website.

Option Explicit
Sub GetPlayerData()

Dim XMLpage As New MSXML2.XMLHTTP60
Dim HTMLDoc As New MSHTML.HTMLDocument
Dim URL As String
Dim HTMLtables As MSHTML.IHTMLElementCollection
Dim HTMLtable As MSHTML.IHTMLElement
Dim HTMLrow As MSHTML.IHTMLElement
Dim HTMLselects As MSHTML.IHTMLElementCollection
Dim HTMLselect As MSHTML.IHTMLElement
Dim HTMLoption As MSHTML.IHTMLElement
Dim i As Long
Dim j As Long
Dim k As Long

'~~~~~~~~~RETRIEVES WEBSITE HTML DOCUMENT WITHOUT USING A WEB BROWSER~~~~~~~~~~~~~~~~~~~~~~~
URL = "This forum won't let me post a link"

XMLpage.Open "get", URL, False
XMLpage.setRequestHeader "Cache-Control", "max-age=0"
XMLpage.send

HTMLDoc.body.innerHTML = XMLpage.responseText
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
i = -1
Set HTMLselects = HTMLDoc.getElementsByTagName("select")
k = 0

For Each HTMLselect In HTMLselects
ReDim seasons(HTMLselect.Length) As String
For Each HTMLoption In HTMLselect

seasons(k) = HTMLoption.innerText

k = k + 1

Next
Next

k = 0

For k = 0 To UBound(seasons) - 1
j = 0
Set HTMLtables = HTMLDoc.getElementsByTagName("table")
For Each HTMLtable In HTMLtables
If HTMLtable.getElementsByTagName("tr")(0).getElementsByTagName("td")(0).innerText = "Regular Season" Then
For Each HTMLrow In HTMLtable.getElementsByTagName("tr")
i = i + 1
j = 0

If HTMLrow.getElementsByTagName("td").Length > 7 Then
Cells(i, 1).Value = HTMLrow.getElementsByTagName("td")(7).innerText
Cells(i, 2).Value = HTMLrow.getElementsByTagName("td").Item(10).innerText
Cells(i, 3).Value = HTMLrow.getElementsByTagName("td")(11).innerText
Cells(i, 4).Value = HTMLrow.getElementsByTagName("td")(12).innerText
Cells(i, 5).Value = HTMLrow.getElementsByTagName("td")(15).innerText

If HTMLrow.getElementsByTagName("td")(1).innerText = "Bye" Then
i = i - 1
End If

End If

If HTMLrow.getElementsByTagName("td")(0).className = "border-td" Then
i = i - 1
End If
Next HTMLrow
End If
Next HTMLtable

For Each HTMLselect In HTMLselects
For Each HTMLoption In HTMLselect

If HTMLoption.Value = seasons(k) Then HTMLoption.Selected = True

Next HTMLoption
Next HTMLselect

HTMLDoc.getElementById("season").Click
HTMLDoc.body.innerHTML = XMLpage.responseText

Next

End Sub