Sub ПолучитьТабличноеСодержимое()
    'Dim IE As New InternetExplorer, Html As HTMLDocument
    Dim IE As Object, Html As Object
    Dim I As Long, N As Long, Row As Long, Column As Long
    
    Set IE = CreateObject("InternetExplorer.Application")
        
    With IE
        .Visible = False
        .Navigate "http://aaaaa.ru/bbbbb/"
        While .Busy = True Or .ReadyState < 4
            DoEvents
        Wend
        Set Html = .Document
    
        With Html.querySelectorAll("table tr")
            For N = 1 To .Length - 1
                With .Item(N).querySelectorAll("th,td")
                    For I = 0 To .Length - 1
                        Column = Column + 1
                        ThisWorkbook.Worksheets("Лист1").Cells(Row + 1, Column) = .Item(I).innertext
                    Next I
                    Column = 0
                    Row = Row + 1
                End With
            Next N
        End With
    End With
    
    Set Html = Nothing
    Set IE = Nothing
End Sub

Sub ПолучитьТабличноеСодержимое()
Dim XMLHTTP As Object '
'Dim Html As Object
Dim URL As String, txt As String
URL = "http://aaaaa.ru/bbbbb/"

Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
'Set Html = CreateObject("htmlFile")
Dim Html As New HTMLDocument

XMLHTTP.Open "GET", URL, False
XMLHTTP.SetRequestHeader "Accept", "..." 'Сокращено для примера
XMLHTTP.SetRequestHeader "User-Agent", "..." 'Сокращено для примера
XMLHTTP.SEND

Dim I As Long, Column As Long, N As Long, Row As Long

If XMLHTTP.Status = 200 Then
    Html.body.innerHTML = XMLHTTP.responseText
    With Html.querySelectorAll("table tr")
        For N = 1 To .Length - 1
            With .Item(N).querySelectorAll("th,td") 'Выдает ошибку "Object doesn't support this property or method".
                For I = 0 To .Length - 1
                    Column = Column + 1
                    ThisWorkbook.Worksheets("Лист1").Cells(Row + 1, Column) = .Item(I).innertext
                Next I
                Column = 0
                Row = Row + 1
            End With
        Next N
    End With
Else
    MsgBox ("Отсутствует соединение ...")
End If

Set XMLHTTP = Nothing
End Sub

Sub ПолучитьТабличноеСодержимое()
Dim XMLHTTP As Object '
'Dim Html As Object
Dim URL As String, txt As String
URL = "http://aaaaa.ru/bbbbb/"

Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
'Set Html = CreateObject("htmlFile")
Dim Html As New HTMLDocument

XMLHTTP.Open "GET", URL, False
XMLHTTP.SetRequestHeader "Accept", "..." 'Сокращено для примера
XMLHTTP.SetRequestHeader "User-Agent", "..." 'Сокращено для примера
XMLHTTP.SEND

Dim I As Long, Column As Long, N As Long, Row As Long

If XMLHTTP.Status = 200 Then
    Html.body.innerHTML = XMLHTTP.responseText
    With Html.querySelectorAll("table tr")
        For N = 1 To .Length - 1
            With .Item(N).ChildNodes 'querySelectorAll("th,td") 
                For I = 0 To .Length - 1
                    Column = Column + 1
                    ThisWorkbook.Worksheets("Лист1").Cells(Row + 1, Column) = .Item(I).innertext
                Next I
                Column = 0
                Row = Row + 1
            End With
        Next N
    End With
Else
    MsgBox ("Отсутствует соединение ...")
End If

Set XMLHTTP = Nothing
End Sub

<tr class=" ">
	<td>Значение1 столбца1</td>
        <td style="text-align: center;">
        	<a href="?notificationId=00001">Значение1_1 столбца2</a>
        	<br><br>
                <a href="?notificationId=00001&lotId=00001">Значение1_2 столбца2</a></td>
        <td>Значение1 столбца3</td>
        <td nowrap>Значение1 столбца4</td>
        <td>Значение1 столбца5</td>
</tr>
<tr class="even ">
        <td>Значение2 столбца1</td>
        <td style="text-align: center;">
        	<a href="?notificationId=00001">Значение2_1 столбца2</a>
        	<br><br>
                <a href="?notificationId=00001&lotId=00002">Значение2_2 столбца2</a></td>
        <td>Значение2 столбца3</td>
        <td nowrap>Значение2 столбца4</td>
        <td>Значение2 столбца5</td>
</tr>
<tr class=" ">
       <td>Значение3 столбца1</td>
        <td style="text-align: center;">
        	<a href="?notificationId=00001">Значение3_1 столбца2</a>
        	<br><br>
                <a href="?notificationId=00001&lotId=00003">Значение3_2 столбца2</a></td>
        <td>Значение3 столбца3</td>
        <td nowrap>Значение3 столбца4</td>
        <td>Значение3 столбца5</td>
</tr>

<html><head><title>Тестовая страница</title></head>
<body>
<H1>Статистика</H1>
<H2>Таблица 1</H1>
Период: 01.01.2019-30.06.2019<br>
<br>

<table>
  <tbody>
    <tr>
      <th>Колонка 1</th>
      <th>Строка 1 Колонка 2<br>Строка 2 Колонка 2</th>
      <th>Колонка 3</th>
      <th>Колонка 4</th>
      <th>Колонка 5</th>
    </tr>
    <tr>
      <td>Значение 1.1</td>
      <td>
       <a href="?numberId=00001">Значение 1_1.2</a>
       <br><br>
       <a href="?numberId=00001&lotId=00001">Значение 1_2.2</a>
      </td>
      <td>Значение 1.3</td>
      <td>Значение 1.4</td>
      <td>Значение 1.5</td>
    </tr>
    <tr>
      <td>Значение 2.1</td>
      <td>
        <a href="?numberId=00001">Значение 2_1.2</a>
        <br><br>
        <a href="?numberId=00001&lotId=00002">Значение 2_2.2</a></td>     
      <td>Значение 2.3</td>
      <td>Значение 2.4</td>
      <td>Значение 2.5<td>
    </tr>
</table>

<span><span>1</span></span>
  <a href="/aaaaa/?page=2">2</a>
  <a href="/aaaaa/?page=3">3</a>
  <a href="/aaaaa/?page=4">4</a>
  <a href="/aaaaa/?page=5">5</a>
  <a href="/aaaaa/?page=6">6</a>
  <a href="/aaaaa/?page=7">7</a>
  <a href="/aaaaa/?page=8">8</a>
  <a href="/aaaaa/?page=9">9</a>
  <a href="/aaaaa/?page=10">10</a>
<span>...</span> <a href="/aaaaa/?page=10000">10000</a>

</body>
</html>

<html><head><title>Тестовая страница</title></head>
<body>
<H1>Статистика</H1>
<H2>Таблица 1</H1>
Период: 01.01.2019-30.06.2019<br>
<br>

<table>
  
    <tr>
      <th>Колонка 1</th>
      <th>Строка 1 Колонка 2<br>Строка 2 Колонка 2</th>
      <th>Колонка 3</th>
      <th>Колонка 4</th>
      <th>Колонка 5</th>
    </tr>
    <tr>
      <td>Значение 1.1</td>
      <td>
       <a href="?numberId=00001">Значение 1_1.2</a>
       <br><br>
       <a href="?numberId=00001&lotId=00001">Значение 1_2.2</a>
      </td>
      <td>Значение 1.3</td>
      <td>Значение 1.4</td>
      <td>Значение 1.5</td>
    </tr>
    <tr>
      <td>Значение 2.1</td>
      <td>
        <a href="?numberId=00001">Значение 2_1.2</a>
        <br><br>
        <a href="?numberId=00001&lotId=00002">Значение 2_2.2</a></td>     
      <td>Значение 2.3</td>
      <td>Значение 2.4</td>
      <td>Значение 2.5<td>
    </tr>
   
</table>

<span><span>1</span></span>
  <a href="/aaaaa/?page=2">2</a>
  <a href="/aaaaa/?page=3">3</a>
  <a href="/aaaaa/?page=4">4</a>
  <a href="/aaaaa/?page=5">5</a>
  <a href="/aaaaa/?page=6">6</a>
  <a href="/aaaaa/?page=7">7</a>
  <a href="/aaaaa/?page=8">8</a>
  <a href="/aaaaa/?page=9">9</a>
  <a href="/aaaaa/?page=10">10</a>
<span>...</span> <a href="/aaaaa/?page=10000">10000</a>

</body>
</html>

Sub Test2()

Dim xmlHttpReq As MSXML2.XMLHTTP60
Dim doc As MSHTML.HTMLDocument
Dim elems1 As MSHTML.IHTMLDOMChildrenCollection, elems2 As MSHTML.IHTMLDOMChildrenCollection, elems3 As MSHTML.IHTMLDOMChildrenCollection

Set xmlHttpReq = New MSXML2.XMLHTTP60

xmlHttpReq.Open "GET", "file:///C:/Users/Acer/Desktop/Сайт/главная страница2.htm", False
xmlHttpReq.send

Set doc = New MSHTML.HTMLDocument
doc.body.innerHTML = xmlHttpReq.responseText
Set elems1 = doc.querySelectorAll("html")
Set elems2 = doc.querySelectorAll("table")
Set elems3 = doc.querySelectorAll("body > a")

End Sub