Set maPageHtml = IE.document
Set Htable = maPageHtml.getElementsbyTagname("table") 'выбираем все таблицы и ищем таблицу с данными - ее имя должно быть "table tbl_1"
For i = 0 To Htable.Length - 1
    If Htable(i).classname = "t2standard" Then Exit For
Next i
Set maTable = Htable(i) ' выбрали нужную
'запускаем цикл по всем ячейкам - последовательно заносим их на лист
s = IIf(last = 8, last, last + 8) 'номер строки листа экселя куда будут заноситься данные - в первый раз = 1 затем = послед заполнен ячейка +1
ss = IIf(s = 1, 1, 1) 'номер строки таблицы сайта в первый запуск = 1 - шапка, в остальные = 2 (искл шапку)
On Error Resume Next
For i = ss To maTable.Rows.Length ' table rows
    For J = 1 To maTable.Rows(i - 1).Cells.Length ' for each cell of the row
        Worksheets("На_регистрации").Cells(s, J) = maTable.Rows(i - 1).Cells(J - 1).innertext
    Next J
    If maTable.Rows(i - 1).Cells.Length > 0 Then s = s + 1 'в таблице есть пустые строки, делаем проверку на колво ячеек в строке - если пусто то игнорми переход на новую строку листа
Next i

Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Linq
Imports System.Windows.Forms
Namespace WindowsFormsApplication1




    Partial Public Class Form1
        Inherits Form
        Public Sub New()
            InitializeComponent()

            AddHandler WebBrowser1.DocumentCompleted, AddressOf webBrowser1_DocumentCompleted
            WebBrowser1.Navigate("http://www.minfin.ru/ru/accounting/reestr_audit/auditors/index.php?from4=1")
        End Sub

        Private Sub webBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs)
            Dim browser = TryCast(sender, WebBrowser)

            If browser Is Nothing Then
                Return
            End If

            Dim table As HtmlElement = browser.Document.GetElementsByTagName("TABLE").Cast(Of HtmlElement)().First(Function(el) el.GetAttribute("className") = "table tbl_1")
            Dim rows As List(Of HtmlElement) = table.GetElementsByTagName("TR").Cast(Of HtmlElement)().Where(Function(el) el.GetAttribute("className") = "row_org").ToList()

            DataGridView1.DataSource = New BindingList(Of Cortage)(rows.[Select](Function(el)
                                                                                     Dim rawData As List(Of HtmlElement) = el.GetElementsByTagName("TD").Cast(Of HtmlElement)().ToList()
                                                                                     Return New Cortage() With { _
                                                                                      .ФамилияИмяОтчество = rawData(0).InnerText, _
                                                                                       .НомерАттестата = rawData(1).InnerText, _
                                                                                       .ОРНЗ = rawData(2).InnerText, _
                                                                                       .ОГРН = rawData(3).InnerText, _
                                                                                       .СаморегулируемаяОрганизацияАудиторов = rawData(4).InnerText, _
                                                                                       .СубъектРоссийскойФедерации = rawData(5).InnerText _
                                                                                     }

                                                                                 End Function).ToList())
        End Sub
        Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView
        Friend WithEvents WebBrowser1 As System.Windows.Forms.WebBrowser

        Private Sub InitializeComponent()
            Me.DataGridView1 = New System.Windows.Forms.DataGridView()
            Me.WebBrowser1 = New System.Windows.Forms.WebBrowser()
            CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
            Me.SuspendLayout()
            '
            'DataGridView1
            '
            Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
            Me.DataGridView1.Location = New System.Drawing.Point(540, 51)
            Me.DataGridView1.Name = "DataGridView1"
            Me.DataGridView1.Size = New System.Drawing.Size(240, 348)
            Me.DataGridView1.TabIndex = 0
            '
            'WebBrowser1
            '
            Me.WebBrowser1.Location = New System.Drawing.Point(77, 51)
            Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
            Me.WebBrowser1.Name = "WebBrowser1"
            Me.WebBrowser1.Size = New System.Drawing.Size(250, 383)
            Me.WebBrowser1.TabIndex = 1
            '
            'Form1
            '
            Me.ClientSize = New System.Drawing.Size(906, 507)
            Me.Controls.Add(Me.WebBrowser1)
            Me.Controls.Add(Me.DataGridView1)
            Me.Name = "Form1"
            CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
            Me.ResumeLayout(False)

        End Sub

        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        End Sub
    End Class

    Public Class Cortage
        Public Property ФамилияИмяОтчество() As String
            Get
                Return m_ФамилияИмяОтчество
            End Get
            Set(ByVal value As String)
                m_ФамилияИмяОтчество = value
            End Set
        End Property
        Private m_ФамилияИмяОтчество As String
        Public Property НомерАттестата() As String
            Get
                Return m_НомерАттестата
            End Get
            Set(ByVal value As String)
                m_НомерАттестата = value
            End Set
        End Property
        Private m_НомерАттестата As String
        Public Property ОРНЗ() As String
            Get
                Return m_ОРНЗ
            End Get
            Set(ByVal value As String)
                m_ОРНЗ = value
            End Set
        End Property
        Private m_ОРНЗ As String
        Public Property ОГРН() As String
            Get
                Return m_ОГРН
            End Get
            Set(ByVal value As String)
                m_ОГРН = value
            End Set
        End Property
        Private m_ОГРН As String
        Public Property СаморегулируемаяОрганизацияАудиторов() As String
            Get
                Return m_СаморегулируемаяОрганизацияАудиторов
            End Get
            Set(ByVal value As String)
                m_СаморегулируемаяОрганизацияАудиторов = value
            End Set
        End Property
        Private m_СаморегулируемаяОрганизацияАудиторов As String
        Public Property СубъектРоссийскойФедерации() As String
            Get
                Return m_СубъектРоссийскойФедерации
            End Get
            Set(ByVal value As String)
                m_СубъектРоссийскойФедерации = value
            End Set
        End Property
        Private m_СубъектРоссийскойФедерации As String
    End Class
End Namespace

AddHandler WebBrowser1.DocumentCompleted, AddressOf webBrowser1_DocumentCompleted