Sub pupa()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim TxtRng As Range
    Dim ie As Object
    Dim data As String, ipt As String, tblsheet As Worksheet, gtrpt As String, lastrow As Integer, i As Integer
    Set tblsheet = ThisWorkbook.Sheets("Òàáëèöà")
    lastrow = tblsheet.UsedRange.Rows.Count
    
For n = 2 To lastrow
    i = n
    ipt = tblsheet.Cells(n, 1)
    Set ie = CreateObject("INTERNETEXPLORER.APPLICATION")
With ie
    .Visible = True
    .Navigate "https://zakupki.gov.ru/epz/contract/contractCard/common-info.html?reestrNumber=" & ipt '
    Do Until .ReadyState = 4: DoEvents: Loop
    
    'tblsheet.Cells(i, 2) = ie.document.getelementbyid(".container:nth-child(6) .section:nth-child(1) .section__info")
    'tblsheet.Cells(i, 2) = ie.document.getelementbyclassname(".container:nth-child(6) .section:nth-child(1) .section__info")
    'tblsheet.Cells(i, 2) = ie.document.getelementbyid("body > div.cardWrapper.outerWrapper > div > div.contentTabBoxBlock.contractCard > div:nth-child(6) > div > div > div > section:nth-child(1) > span.section__info").innerHTML
    'Set getPrice = ie.document.getelementbyid("body > div.cardWrapper.outerWrapper > div > div.contentTabBoxBlock.contractCard > div:nth-child(6) > div > div > div > section:nth-child(1) > span.section__info")
    'Dim myValue As String: myValue = getPrice.innertext
    
    .Quit
    End With
    
    
    
Next

End Sub