Выполнение выборки Select на листе Excel

Sub SSS_1()
Const N = 90
Dim i, p, g, iter As Integer
Dim c As Object
Dim sSql As String
 
 
 
    If IsWorkSheetExist("отчет") = True Then
        Worksheets("отчет").Delete
        Set NewSheet = Worksheets.Add
        NewSheet.Name = "отчет"
    Else
        Set NewSheet = Worksheets.Add
        NewSheet.Name = "отчет"
    End If
 
 
    Range("B2").Select
    Selection.End(xlDown).Select
    EndRow = ActiveCell.Row
       
    Worksheets("1704").Range("A2:T" & EndRow).Name = t01
    Worksheets("1704").Range("N").Name = "K1"
    Worksheets("1704").Range("O").Name = "K2"
    Worksheets("1704").Range("P").Name = "K3"
    Worksheets("1704").Range("Q").Name = "K4"
    Worksheets("1704").Range("R").Name = "X1"
    Worksheets("1704").Range("S").Name = "X2"
    Worksheets("1704").Range("T").Name = "X3"
    
 
    Sql = "select * from t01 where Worksheets("1704").Cells("A") <> "NAT MINSK" Or Worksheets("1704").Cells("E") <> "RUB" _
    Group by "K1", "K2", "K3", "K4" _
    Order by "K1", "K2", "K3", "K4", "X1", "X2", "X3" 
 
End Sub

Sub t()
    Dim sCon$, rs As Object, cn As Object, w As Worksheet
    Dim sSQL$
    Set rs = CreateObject("ADODB.Recordset")
    Set cn = CreateObject("ADODB.Connection")
    Select Case CLng(Split(Application.Version, ".")(0))
        Case Is < 12
            sCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.FullName _
              & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"
        Case Is >= 12
            sCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName _
            & ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";"
    End Select ' thnx R Dmitry
    
    sSQL = "SELECT COUNTERPARTY, CPTY_TCID, DIRECTION, INSTR_1, VOLUME," _
        & " RATE, START_DATE, END_DATE, PERIOD, INTEREST, BASIS, КУРС_НБРБ," _
        & " DEAL_ID, K1, K2, K3, sum(X1), sum(X3)/sum(X2), X4" _
        & " FROM [1704$A:T] WHERE COUNTERPARTY<>""NAT MINSK"" AND INSTR_1<>""RUB""" _
        & " GROUP BY COUNTERPARTY, CPTY_TCID, DIRECTION, INSTR_1, VOLUME," _
        & " RATE, START_DATE, END_DATE, PERIOD, INTEREST, BASIS, КУРС_НБРБ," _
        & " DEAL_ID, K1, K2, K3, X4"
    cn.Open sCon
    Set rs = cn.Execute(sSQL)
    Set w = ThisWorkbook.Worksheets.Add
    w.[a2].CopyFromRecordset rs
End Sub

    sSQL = "SELECT K1, K2, K3, X1, sum(X2), sum(X4)/sum(X2), sum(X4)" _
        & " FROM [1704$A:T] WHERE COUNTERPARTY<>""NAT MINSK"" AND INSTR_1<>""RUB""" _
        & " GROUP BY K1, K2, K3, X1"

Dim sSQL$
    Set rs = CreateObject("ADODB.Recordset")
    Set cn = CreateObject("ADODB.Connection")
    Select Case CLng(Split(Application.Version, ".")(0))
        Case Is < 12
            sCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.FullName _
              & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"
        Case Is >= 12
            sCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName _
            & ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";"
    End Select ' thnx R Dmitry

    Dim sCon$, rs As Object, cn As Object, w As Worksheet, d ' As String
'...
    sSQL = "SELECT Sum(Покупка), Sum(Продажа)" _
        & " FROM [Данные$A:H]" _
        & " WHERE Валюта_1=""USD"" AND Дата_валютирования=" & Format(d, "\#yyyy\/mm\/dd\#") _
        & " GROUP BY Валюта_1, Дата_валютирования"