问如何让我的VBA web抓取代码跟上新窗口？

EN

<div class="table-r">
  <table class="table-c">
    <tbody>
      <tr class="bg">
        <td class=" np">    <a title="comm" href="logcomm-e.asp?id=3" rel="history">3</a> </td>
        <td class=" np">    <a title="comm" href="logcomm-e.asp?id=2" rel="history">2</a> </td>
        <td class=" np">    <a title="comm" href="logcomm-e.asp?id=1" rel="history">1</a> </td>
      </tr>
    </tbody>
  </table>
</div>

Sub IEScrape()
  Dim IE As Object
  Set IE = New InternetExplorerMedium

    With IE
         .Visible = True
         .Navigate "inhouse web site"

         While IE.readyState <> 4
             DoEvents
         Wend

         .document.querySelector("a[href*='logcomm-e.asp?id=']").Click

         While IE.readyState <> 4
             DoEvents
         Wend

    End With

  Set IE = Nothing
  ActiveWorkbook.Save

End Sub