Хотите скопировать вставить страницу Inte rnet Explorer на лист Excel. До этого выпадающий выбор = все, изменяется, но не отправляется на обновление

Question

Мой код VBA для макросов Excel следующий (выбор всех равен значению параметра = 4000). Выбор 4000 соответствует обновлению для всех данных. Изменение происходит на странице проводника inte rnet, но не обновляется. Что такое исправление для этого сайта?

Sub getcorsica() 
Dim IE As Object
Dim strURL As String
strURL = "https://www.corsicahockey.com/nhl/players/nhl-player-ratings-rankings" 
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate strURL
Do
    DoEvents
Loop Until IE.ReadyState = 4 And Not IE.Busy
IE.document.querySelector("option[value='4000']").Selected = True
IE.document.querySelector("option[value='4000']").FireEvent "onchange"
IE.ExecWB 17, 2
IE.ExecWB 12, 2 
Application.Wait Now + TimeSerial(0, 0, 4)

Sheets("corsicarating").Select
Range("A1").Select
On Error Resume Next
ActiveSheet.PasteSpecial Format:="HTML", link:=False, DisplayAsIcon:=False, nohtmlformatting:=True
'Unload IE
IE.Quit
Set IE = Nothing
End Sub