Excel VBA 模擬IE，如何選取並擷取select onchange的表格資料?

1.問題:如題
1.1.範例網頁:https://goodinfo.tw/tw/StockBzPerformance.asp?STOCK_ID=2330
1.2.想用VBA 模擬IE，選擇最下方"顯示依據"標籤裡"PER/PBR"
1.3.資料跑出來後寫入EXCEL裡

2.自己寫的程式碼，請大神協助修改
Sub 聚亨獲利性ROE1()
'
'
'

Dim url As String
Dim IE1 As Object
Dim i, j As Integer

Worksheets("聚亨-獲利性-ROE1").Range("B4:V38").Cells.Clear


Set IE1 = CreateObject("InternetExplorer.application")
url1 = "https://goodinfo.tw/StockInfo/StockBzPerformance.asp?STOCK_ID=" & Sheets("Check List").Range("c1").Value


With IE1
.Visible = True
.navigate url1

Do While .Busy Or .ReadyState <> 4
Loop

'從這邊開始就一直試不出來
.document.getElementsBytagname("b0 p6_0")(0).Value = "PER/PBR"

Do While .ReadyState <> 4 Or .Busy
DoEvents
Loop


Set Doc = .document
Set Motable = Doc.getElementsBytagname("table")(23)

i = 4 '輸入試算表
For Each nRow In Motable.Rows
j = 2
For Each nCol In nRow.Cells
Worksheets("聚亨-獲利性-ROE1").Cells(i, j) = nCol.innertext
j = j + 1
Next
i = i + 1
Next
.Quit

End With

End Sub