Sub selectData()
    
    Dim cnn As Object
    Dim rst As Object
    Dim sql As String
        
    Set cnn = CreateObject("ADODB.Connection")
    Set rst = CreateObject("ADODB.Recordset")
                    
    cnn.Open _
    "Provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Data Source=" & ThisWorkbook.FullName & ";" & _
    "Extended Properties='Excel 12.0;HDR=Yes'"
    
    'создаем SQL-запрос
    sql = sql & "SELECT Клиент, [Валюта договора], "
    sql = sql & "Round(Sum([Сумма сделки в валюте договора]*[Срочность сделки 1])/Sum([Сумма сделки в валюте договора]),0), "
    sql = sql & "Round(Sum([Сумма сделки в валюте договора]*[Срочность сделки 2])/Sum([Сумма сделки в валюте договора]),0)  "
    sql = sql & "FROM [пример$A2:H65000] "
    sql = sql & "GROUP BY Клиент, [Валюта договора]"
                    
    rst.Open sql, cnn
                    
    Worksheets("пример").Range("O3:R" & Rows.Count).ClearContents
    Worksheets("пример").Range("O3").CopyFromRecordset rst
    rst.Close
        
    Set rst = Nothing
    Set cnn = Nothing
        
End Sub