Estou rodando um script no excel para coletar indices de uma pagina da internet. quando mando ele rodar aparece o erro 91 e se mando ele continuar, ele contianua sem problema e depois em outro valor da o erro novamente e assim por diante.

Esse é o script:

Sub Busca_Indice()

Dim Lin As Integer 'Variavel para ler as linhas (inicio da contagem)

Lin = 3 Dim ie As Object

Do Until Cells(Lin, 1) = Empty 'Loop para calcular indices ate a data base estiver vazia

Set ie = CreateObject("internetexplorer.application") 'Abrir a internet explorer

ie.navigate "https://www3.bcb.gov.br/CALCIDADAO/publico/corrigirPorIndice.do?method=corrigirPorIndice" 'Ir para o site de correção do indice

ie.Visible = True 'Mostrar o site na tela

Do While ie.busy And ie.readyState <> "READYSTATE_COMPLETE" 'Espera para o site carregar

DoEvents

Loop

ie.document.getElementsByTagname("select")(0).selectedIndex = 3 'Escolha do indice no site

ie.document.getElementsByTagname("input")(1).Value = Cells(Lin, 1).Value ' Data base para calculo

ie.document.getElementsByTagname("input")(2).Value = Cells(2, 1).Value 'Data da correção (1 mês antes do atual)

ie.document.getElementsByTagname("input")(3).Value = ("1") 'Valor a ser corrigido no site (1 real)

ie.document.getElementsByClassname("botao")(0).Click 'Clicar no botão para calcular

Do While ie.busy And ie.readyState <> "READYSTATE_COMPLETE" 'Espera para o site carregar

DoEvents

Loop

Cells(Lin, 2) = ie.document.getElementsByTagname("td")(14).innertext 'Inserir indice de correção na planilha ie.Quit Lin = Lin 1 'Contador para acabar o Loop

Loop

End Sub