Vba erro 91

Galera, por favor, me ajudem, sou iniciante em vba, estou tentando fazer com que ao clicar no botão de atualizar criado no excel, o macro pesquise no determinado site especificado, os materiais desejados e retorne o valor dos mesmos atualizados na planilha, segue abaixo o código que estou utilizando. alguém poderia me ajudar, pois fica dando esse erro 91. a variavel do objeto ou a variável do bloco “With” não foi definida. PS: Substitui o site de busca por url do site desejado pois na hora do tópico o memso só me permite o envio de dois links.

Sub busca_valores()

Range(“B1:B49”).ClearContents

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(1, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(2, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(3, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(4, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(5, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(6, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(7, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(8, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(9, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(10, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(11, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(12, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(13, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(14, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(15, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(16, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(17, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(18, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(19, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(20, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(21, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(22, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(23, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(24, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(25, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(26, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(27, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(28, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(29, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(30, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(31, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(32, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(33, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(34, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(35, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(36, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(37, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(38, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(39, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(40, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(41, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(42, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(43, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(44, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(45, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(46, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(47, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(48, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Set ie = CreateObject(“internetexplorer.application”)

ie.navigate “URL DO SITE DESEJADO”
ie.Visible = False

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

Cells(49, 2) = ie.document.getElementsByTagName(“h3”)(0).innertext

Do While ie.busy And ie.readyState <> “READYSTATE_COMPLETE”
DoEvents
Loop

ie.Quit

Range(“B1:B49”).WrapText = False

End Sub