Attribute VB_Name = "Module1"
 Sub updater_html2()
     ActiveSheet.Range("$A$2:$A$2000").RemoveDuplicates Columns:=1, Header:=xlNo
     Range("A2").Select
     Dim oIE As InternetExplorer
     Dim link As String
     Dim i As Integer
     a = Timer
     i = 2
         Do While Len(Cells(i, 1)) > 0
         link = Cells(i, 1)
         Set oIE = New InternetExplorerMedium
         oIE.Visible = True
         oIE.Navigate link
             Do While oIE.Busy Or (oIE.ReadyState <> 4): DoEvents: Loop
             'убираем подтверждение - всплывающее окно
             oIE.Document.parentWindow.execscript "eval('window.confirm = function(){return true};window.alert = function(){};')"
             On Error Resume Next
             'нажимаем на кнопку
             oIE.Document.getElementsByName("declined").Item(0).Click
             On Error GoTo 0
             'ждем загрузки страницы
             Do While oIE.Busy Or (oIE.ReadyState <> 4): DoEvents: Loop
             'закрываем окно IE
             Call oIE.Quit
             Rows(i).Select
             Selection.Delete Shift:=xlUp
      Loop
End Sub