Sub newsub()

    Dim SQL_com As String
    Dim Con_string As String

    SQL_com = "SELECT a.[Пол], sum(a.[Возраст]) FROM T1 a --название таблицы или листа excel  GROUP BY [Пол] ORDER BY 2"
    Con_string = "ODBC;DSN=Excel Files;DBQ=C:\Book2.xls;DefaultDir=C:;DriverId=790;MaxBufferSize=2048;PageTimeout=5;"

    With ActiveSheet.QueryTables.Add(Connection:=Con_string, Destination:=ActiveSheet.Cells( 1 ,  1 ))
        .CommandText = SQL_com
        .Name = "QueryToBook2"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = True
        .BackgroundQuery = False
        .RefreshStyle = xlOverwriteCells
        .SavePassword = True
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod =  0 
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With
End Sub