Sub kursy()

Dim n&, k&, i&
    Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
    For i = 2 To 10 Step 1
               ' у меня там не одна ссылка , поэтому в цикле все стоит
    Url = ("https://p2p.binance.com/ru/trade/buy/USDT?fiat=RUB&payment=ТИНЬКОФФ")

    If Url <> "" Then
       XMLHTTP.Open "GET", Url
       XMLHTTP.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/96.0.4664.45 Safari/537.36"
       XMLHTTP.SEND
       
           If XMLHTTP.Status = 200 Then
                
                txt = XMLHTTP.responseText
                n = InStr(1, txt, "css-1m1f8hn") + 11
                k = InStr(n, txt, "div>") - 6
                kurs = Replace(Mid(txt, n, k - n), " ", "")
                Cells(i, 2) = kurs
                
                End If
           End If
    Next i
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
     
    For Each cell In Target   
       If Not Intersect(cell, Range("A2:A100")) Is Nothing Then  
            With cell.Offset(0, 1)        
               .Value = Now
               .EntireColumn.AutoFit 
            End With
       End If
    Next cell
End Sub

Sub цены()

Dim XMLHTTP As Object
Dim url, txt$, kurs$, namme$
Dim n&, k&, i&
    Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
    For i = 2 To 200 Step 1
    url = Cells(i, 9)
    If url <> "" Then
       XMLHTTP.Open "GET", url
       XMLHTTP.setRequestHeader "User-Agent", "Mozilla/5.0
       XMLHTTP.SEND
           If XMLHTTP.Status = 200 Then
           
                txt = XMLHTTP.responseText
                n = InStr(1, txt, "text{:product^goodsName}") + 26
                k = InStr(n, txt, "</span>")
                namme = Replace(Mid(txt, n, k - n), " ", "")
                Cells(i, 10) = namme
                
                Txt2 = XMLHTTP.responseText
                n2 = InStr(1, txt, "ProdID") + 11
                k2 = InStr(n2, txt, "  ],")
                art = Replace(Mid(txt, n2, k2 - n2 - 1), " ", "")
                Cells(i, 8) = art
                
                txt = XMLHTTP.responseText
                n = InStr(1, txt, "price-block__final-price") + 27
                k = InStr(n, txt, " ")
                kurs = Replace(Mid(txt, n, k - n), " ", "")
                Cells(i, 7) = kurs
     
           End If
        End If
    Next i
End Sub

Sub Öåíà_àðòèêóë()
Dim XMLHTTP As Object
Dim url, txt
Dim n&, k&
 
For i = 1 To 200
    url = Cells(i, 21)
    Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
 
    XMLHTTP.Open "GET", url
    XMLHTTP.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0............" 
    XMLHTTP.SEND
        If XMLHTTP.Status <> 200 Then
                                
        Else
            txt = XMLHTTP.responseText
            n = InStr(1, txt, "price-block__final-price") + 27
            k = InStr(n, txt, " ")
            Price = Replace(Mid(txt, n, k - n), " ", "")
            Cells(i, 19) = Price
            Txt2 = XMLHTTP.responseText
            n2 = InStr(1, txt, "ProdID") + 11
            k2 = InStr(n2, txt, "  ],")
            art = Replace(Mid(txt, n2, k2 - n2 - 1), " ", "")
            Cells(i, 20) = art

        End If
        
        Next i

End Sub