Sub BinanceOrdersHistory()
    Dim x As Object
    Dim Target As ListObject
    Dim listObj As ListObject 'Ïåðåáèðàåò èç òàáëèöû âàëþòíûå ïàðû, è çàãðóçàåò èõ
    Set listObj = ActiveWorkbook.Worksheets("BinanceOrdersHistory").ListObjects("BinanceOH") 'Ïåðåáèðàåò èç òàáëèöû âàëþòíûå ïàðû, è çàãðóçàåò èõ
    Set Target = ActiveWorkbook.Worksheets("BinanceOrdersHistory").ListObjects("BinanceOrdersHistory")
    
    For i = 1 To listObj.ListRows.Count 'Ïåðåáèðàåò èç òàáëèöû âàëþòíûå ïàðû, è çàãðóçàåò èõ
        sym = listObj.ListRows(i).Range().Formula 'Ïåðåáèðàåò èç òàáëèöû âàëþòíûå ïàðû, è çàãðóçàåò èõ
        Set x = BinancePrivate("/api/v3/myTrades", "symbol=" + sym + "&limit=1000")
        For Z = 1 To x.Count
           Set lr = Target.ListRows.Add
            
            For c = 1 To x(1).Count
                If Target.HeaderRowRange(c).Formula = "time" Then 'Ôîðìàòèðîâàíèå âðåìåíè
                    lr.Range(c) = Format(x(Z)(Target.HeaderRowRange(c).Formula) / 86400000# + #1/1/1970#, "general date") 'Ôîðìàòèðîâàíèå âðåìåíè
                Else 'Ôîðìàòèðîâàíèå âðåìåíè
                    lr.Range(c) = x(Z)(Target.HeaderRowRange(c).Formula)
                End If 'Ôîðìàòèðîâàíèå âðåìåíè
            Next c
        Next Z
    Next i 'Ïåðåáèðàåò èç òàáëèöû âàëþòíûå ïàðû, è çàãðóçàåò èõ
    'ActiveWorkbook.Worksheets("BinanceOrdersHistory").Range("BinanceOrdersHistory").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18), Header:=xlYes
Call RemoveDuplicates
End Sub

Sub BinanceOrdersHistory()
    Dim x As Object
    Dim Target As ListObject
    Dim listObj As ListObject
    Set listObj = ActiveWorkbook.Worksheets("BinanceOrdersHistory").ListObjects("BinanceOH")
    Set Target = ActiveWorkbook.Worksheets("BinanceOrdersHistory").ListObjects("BinanceOrdersHistory")
    
    For i = 1 To listObj.ListRows.Count
        sym = listObj.ListRows(i).Range().Formula
        Set x = BinancePrivate("/api/v3/myTrades", "symbol=" + sym + "&limit=1000")
        For Z = 1 To x.Count
           Set lr = Target.ListRows.Add
            
            For c = 1 To x(1).Count
                If Target.HeaderRowRange(c).Formula = "time" Then
                    lr.Range(c) = Format(x(Z)(Target.HeaderRowRange(c).Formula) / 86400000# + #1/1/1970#, "general date")
                Else
                    lr.Range(c) = x(Z)(Target.HeaderRowRange(c).Formula)
                End If
            Next c
        Next Z
    Next i
    ActiveWorkbook.Worksheets("BinanceOrdersHistory").Range("BinanceOrdersHistory").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18), Header:=xlYes
End Sub

Function BtcBid(pair)
    Dim xmlhttp As New MSXML2.XMLHTTP60, myurl As String
    Dim x As Object

    API = "https://btc-trade.com.ua/api/ticker/" + pair
    xmlhttp.Open "GET", API, False
    xmlhttp.Send
    Set x = ParseJson(xmlhttp.responseText)
    Set xmlhttp = Nothing
    
    BtcBid = val(x(pair)("buy"))
End Function

Sub B()
    Dim x As Object
    Dim Target As ListObject
    Set Target = ActiveWorkbook.Worksheets("B").ListObjects("B")
    
        Set x = BP("/sapi/history", "s=" + sym + "&limit=1000")
        For Z = 1 To x.Count
           Set lr = Target.ListRows.Add
            
            For c = 1 To x(1).Count
            
                    lr.Range(c) = x(Z)(Target.HeaderRowRange(c).Formula)
            Next c
        Next Z
    ActiveWorkbook.Worksheets("B").Range("B").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9), Header:=xlYes
End Sub

Sub Extract_Unique()
    Dim vItem, avArr, li As Long
    ReDim avArr(1 To Rows.Count, 1 To 1)
    With New Collection
        On Error Resume Next
        For Each vItem In Range("A2", Cells(Rows.Count, 1).End(xlUp)).Value
            'Cells(Rows.Count, 1).End(xlUp) – определяет последнюю заполненную ячейку в столбце А
            .Add vItem, CStr(vItem)
            If Err = 0 Then
                li = li + 1: avArr(li, 1) = vItem
            Else: Err.Clear
            End If
        Next
    End With
    If li Then [E2].Resize(li).Value = avArr
End Sub

=СУММПРОИЗВ(($C$2:$C$1000="ПОКУПКА")*($E$2:$E$1000=Y14)*($G$2:$G$1000=Z14);
$H$2:$H$1000)/СУММПРОИЗВ(($C$2:$C$1000="ПОКУПКА")*($G$2:$G$1000=Z14)*($E$2:$E$1000=Y14);$J$2:$J$1000))

=СУММПРОИЗВ(($C$2:$C$1000="ПРОДАЖА")*($G$2:$G$1000=Z5)*($E$2:$E$1000=Y5);
$J$2:$J$1000)/СУММПРОИЗВ(($C$2:$C$1000="ПРОДАЖА")*($E$2:$E$1000=Y5)*($G$2:$G$1000=Z5);$H$2:$H$1000))