TR取れない君です
>>790に書いてますが取得は出来てます
３サイト程試したので理解は出来ているかと思います
昨日はcellに出力まで出来ました。
Set colTable = htmlDoc.getElementsByName("oppai")

Dim el As IHTMLElement
For Each el In colTable

Set colTH = el.getElementsByTagName("th")
Set colTD = el.getElementsByTagName("td")

i = 2
Cells(i, "B") = colTD(2).innerText
Cells(i, "C") = colTD(3).innerText
Cells(i, "D") = colTD(4).innerText

Next el

後はＡ列に記載のＵＲＬから順に情報を取得して上のcellに格納していくのと
MSXML2.XMLHTTPやMSHTML.HTMLDocument化です

Ａ列に記載のＵＲＬ（Ｂ２からＢ１０１）から順に情報を取得して上のcellに格納の
具体的なコードを教えて頂けないでしょうか