Sub Oem_Value()

    Dim post As Object
 Dim selectItems As Variant

    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .navigate "https://zunamiprotocol.medium.com/followers"
      
        While .readyState < 4: DoEvents: Wend

        For Each post In .Document.getElementsByName("eh ei bz ca cb cc cd ce cf bl ej ek cg el em")
            r = r + 1: Cells(r, 1) = post.innerText
        Next post
        .Quit
    End With

End Sub

 Range("A2:A8").Copy
   Worksheets("Лист1").Range("A2:A8").PasteSpecial Paste:=xlPasteValues
      
        
    Selection.Replace What:=",", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="$", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Sub Индекс()

 Dim IE As Object
 Dim N As Integer
 
Dim lLastRow As Variant
lLastRow = ThisWorkbook.Worksheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row

Set IE = CreateObject("InternetExplorer.Application")

   IE.Navigate "https://indexphone.ru"

    While IE.Busy Or (IE.ReadyState <> 4): DoEvents: Wend
    With IE.Document
  
     For N = 2 To Cells(Rows.Count, 2).End(xlUp).Row
     
     .GetElementsByName("search")(0).Value = Cells(N, 2).Value
    SendKeys ("{Enter}")

Sheets("Лист1").Cells(N, 4).Value = IE.Document.getElementsByClassName("post-search-list-postalcode")(0).innerText
  Application.Wait Time:=Now + TimeValue("0:00:10")

 Next
     End With
End Sub

Sub f()

 Dim IE As Object
 Dim N As Integer
 Dim sAnswer As String

' On Error Resume Next
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = False
   IE.Navigate "http://egrul.nalog.ru/index.html"
   
    While IE.Busy Or (IE.ReadyState <> 4): DoEvents: Wend
    With IE.document
 
     For N = 1 To Cells(Rows.Count, 1).End(xlUp).Row
     
       .GetElementsByName("query")(0).Value = Cells(N, 1).Value
       .getElementById("btnSearch").Click

   Sheets("Лист1").Cells(N, 2).Value = IE.document.getElementById("resultContent").innerText
  
      
 Application.Wait Time:=Now + TimeValue("0:00:10")
 
 Next N
  
    End With

End Sub

Sub f()
 Dim IE As Object
' On Error Resume Next
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
   IE.Navigate "http://egrul.nalog.ru/index.html"
   
    While IE.Busy Or (IE.ReadyState <> 4): DoEvents: Wend
    With IE.Document

        .GetElementsByName("query")(0).Value = Cells(0, 1).Value
       .GetElementById("btnSearch").Click

    Cells(0, 2).Value = IE.Document.getElementsByClassName("div.res-text")(0).innerText
 
'ЗДЕСЬ НИКАК НЕ ВЫХОДИТ НИЧЕГО((
    End With
End Sub