Guru do Excel e Power BI

Alguem pode me passar o código para extrair as informações pela div class (tem varias com o mesmo nome "accordion-item), porém seus atributos são diferentes.
Tem utilizado (0), (1) porém as vezes muda conforme a pagina e ai minhas colunas ficam erradas, preciso referenciar pelos atributos (por exemplo o id="accordion-titulares").

div class="accordion-item">
<input type="checkbox" name="accordion" checked="checked" id="accordion-titulares">
<label for="accordion-titulares"><font class="titulo">Titulares</font>
<font class="normal">

Muito obrigado.

Bom dia

Por favor me ajudem, falta apenas este código para concluir meu projeto.

Muito obrigado!

Boa noite pessoal,

Estou complementando meu pedido, pois com certeza não fui claro na minha solicitação . Peço desculpas por isso!

Estou mandando uma print da estrutura da pagina que preciso raspar, sendo:

A página é dividido com varias tabelas e divs com mesmo nome, o que deferencia é este input que fica logo abaixo do class="accordion-item".

Hoje estou usando o codigo:
Set HTMLDoc = IE.document
Set HTMLDiv = HTMLDoc.getElementById("principal")
Set HTMLClass = HTMLDiv.getElementsByClassName ("accordion-item") (0)
Set HTMLClass = HTMLDiv.getElementsByClassName ("accordion-item") (1)
Set HTMLClass = HTMLDiv.getElementsByClassName ("accordion-item") (2)
Set HTMLClass = HTMLDiv.getElementsByClassName ("accordion-item") (3)
Set HTMLClass = HTMLDiv.getElementsByClassName ("accordion-item") (4)
Set HTMLClass = HTMLDiv.getElementsByClassName ("accordion-item") (5)

Porém as vezes dependendo da página, possui menos tabelas e/ou divs, não possuindo uma ordem de sua classificação.

No print que mandei possui este input que possui até id que fica logo abaixo do div class accordion-item.

O qure estou precisando é do código para definir estas divs e/ou tabelas de forma que fique fixa atrelando pelo id e não por estes números que informei (0), (1), etc.

Desculpem sou leigo, estou com dificuldade de fazer este código.

Olá pessoal, consegi após muitos testes rs.

De:
Para:
Declarei:
Dim HTMLTable As MSHTML.IHTMLElement
Dim HTMLClasses As MSHTML.IHTMLElementCollection