Sub qwe()
     Dim cn: Set cn = CreateObject("ADODB.Connection")
     Dim rs: Set rs = CreateObject("ADODB.Recordset")
     Dim prop: Set prop = cn.Properties
     cn.Provider = "Microsoft.Jet.OLEDB.4.0"
     prop("data source") = ThisWorkbook.FullName
     prop("Extended Properties") = "Excel 8.0;HDR=No;"
     cn.Open
     rs.Open "select f9, sum(f12), sum(F13)  from [за месяц$" & [данные].Address(0, 0) & "] group by F9", cn, 3, 3
     With Sheets("за месяц по нн").ListObjects("Таблица1")
         On Error Resume Next
         .DataBodyRange.Delete
         .ShowTotals = False
         .Range.Cells(2, 2).CopyFromRecordset rs
         .ShowTotals = True
     End With
     rs.Close: cn.Close: Set cn = Nothing: Set rs = Nothing
End Sub