Запрос в vba

a.`ID клиента в RS-Bank`,
       a.Филиал,
       a.Заемщик,
       a.`Номер договора`,
       a.`Остаток ссудной задолженности`,
       a.`В том числе просроченной`,
       c.`Остаток ссудной задолженности`  `Остаток ссудной задолженности2` ,
       c.`В том числе просроченной`  `В том числе просроченной2`,
         `Признак суммы`
FROM `D:\InitialData`.`//` a
LEFT OUTER JOIN `D:\InitialData`.`//` c
      a.`ID клиента в RS-Bank` = c.`ID клиента в RS-Bank`
     a.`Номер договора` = c.`Номер договора`
UNION
 b.`ID клиента в RS-Bank`,
       b.Филиал,
       b.Заемщик,
       b.`Номер договора`,
       e.`Остаток ссудной задолженности`,
       e.`В том числе просроченной`,
       b.`Остаток ссудной задолженности`,
       b.`В том числе просроченной`,
         `Признак суммы`
FROM `D:\InitialData`.`//` b
LEFT OUTER JOIN `D:\InitialData`.`//` e
      b.`ID клиента в RS-Bank` = e.`ID клиента в RS-Bank`
     b.`Номер договора` = e.`Номер договора`
UNION

       f.`ID клиента в RS-Bank`,
       f.Филиал,
       f.Заемщик,
       
       sum(f.`Остаток ссудной задолженности`),
       sum(f.`В том числе просроченной`),
       sum(f.`Остаток ссудной задолженности2`),
       sum(f.`В том числе просроченной2`),
         `Признак суммы`
FROM (
   a.`ID клиента в RS-Bank`,
         a.Филиал,
         a.Заемщик,
         a.`Номер договора`,
         a.`Остаток ссудной задолженности`,
         a.`В том числе просроченной`,
         c.`Остаток ссудной задолженности`  `Остаток ссудной задолженности2` ,
         c.`В том числе просроченной`  `В том числе просроченной2`,
         `Признак суммы`
  FROM `D:\InitialData`.`//` a
  LEFT OUTER JOIN `D:\InitialData`.`//` c
        a.`ID клиента в RS-Bank` = c.`ID клиента в RS-Bank`
       a.`Номер договора` = c.`Номер договора`
  UNION
   b.`ID клиента в RS-Bank`,
         b.Филиал,
         b.Заемщик,
         b.`Номер договора`,
         e.`Остаток ссудной задолженности`,
         e.`В том числе просроченной`,
         b.`Остаток ссудной задолженности`,
         b.`В том числе просроченной`,
         `Признак суммы`
  FROM `D:\InitialData`.`//` b
  LEFT OUTER JOIN `D:\InitialData`.`//` e
        b.`ID клиента в RS-Bank` = e.`ID клиента в RS-Bank`
       b.`Номер договора` = e.`Номер договора`
) f
GROUP BY f.`ID клиента в RS-Bank`,f.Филиал , f.Заемщик
ORDER BY `ID клиента в RS-Bank`, Заемщик, `Номер договора`

Макрос1()
     ActiveSheet.QueryTables.Add(Connection:= _
         _
        , Destination:=Sheets().Range())
        .CommandText = Array( _
        &chr()&&chr()&&chr()&&chr()&&chr()&&chr()&&chr()&&chr()&&chr()&&chr()&&chr()&&chr()& _
        , _
        &chr()&&chr()&&chr()&&chr()&&chr()&&chr()&&chr()&&chr()& _
        , _
        &chr()&&chr()&&chr()&&chr()&&chr()&&chr()&&chr()&&chr()&&chr()&&chr()& _
        , _
        &chr()&&chr()&&chr()&&chr()&&chr()&&chr()&&chr()&&chr()&&chr()&&chr()&&chr()&&chr()& _
        ,,,,,,,,,)
        . = 
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = True
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
     
    Sheets().