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