Workbooks("LTE.xlam").Sheets.Add Type:="c:\temp.xlsx"
    Workbooks("LTE.xlam").Save

    ThisWorkbook.Sheets("Отчет").Copy Before:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)

    Workbooks("LTE.xlam").Sheets.Add Type:="c:\temp.xlsx"
    Workbooks("LTE.xlam").Save

Workbooks("LTE.xlam").Sheets.Add Type:="c:\temp.xlsx"

Workbooks("LTE.xlam").Worksheets("Лист3").Copy ActiveWorkbook.Sheets(3)

Sub assd()
     Workbooks("Книга1.xlsx").Worksheets("Лист1").Copy Workbooks("LTE.xlam").Sheets(3)
End Sub

Sub QueryToSQLite()
    Dim driver As String
    Dim provider As String
    Dim pathToDB As String
    Dim query As String
    Dim connection As ADODB.connection
    Dim recordset As ADODB.recordset
    Dim col As Integer
    Dim row As Integer
    
    driver = "SQLite3 ODBC Driver"
    provider = "SQLITEDB"
    pathToDB = "C:\test.db"
    query = "SELECT * FROM electric;"
    Set connection = New ADODB.connection
    
    connection.ConnectionString = "DRIVER=" & driver & ";Database=" & pathToDB & ""
    'connection.ConnectionString = "Provider=" & provider & ";Data Source=" & pathToDB & ""
    connection.ConnectionTimeout = 3
    connection.CommandTimeout = 3
    connection.Open
    
    'connection.Execute ("INSERT INTO electric (amount, finally) VALUES (6666, 0);")
    
    Set recordset = connection.Execute(query)
    For col = 0 To recordset.Fields.Count - 1
        Range("A1").Offset(0, col).Value = recordset.Fields(col).Name
    Next
    Do While Not recordset.EOF
        For col = 0 To recordset.Fields.Count - 1
            Range("A2").Offset(row, col).Value = recordset.Fields(col).Value
        Next
        row = row + 1
        recordset.MoveNext
    Loop
    'Range("A1").Offset(1, 0).CopyFromRecordset recordset
        
    connection.Close
    Set connection = Nothing
    Set recordset = Nothing
End Sub

...
  connection.Execute ("INSERT INTO electric (amount, finally) VALUES (6666, 'dfgd');")
 ...

Sub QueryToSQLite()

    Dim driver As String
    Dim provider As String
    Dim pathToDB As String
    Dim connection As ADODB.connection
    Dim recordset As ADODB.recordset
    Dim query As String
    Dim i As Integer
    
    driver = "SQLite3 ODBC Driver"
    provider = "SQLITEDB"
    pathToDB = "C:\test.db"
    query = "SELECT * FROM electric;"
    Set connection = New ADODB.connection
    
    'connection.ConnectionString = "DRIVER=" & driver & ";Database=" & pathToDB & ";"
    connection.ConnectionString = "Provider=" & provider & ";Data Source=" & pathToDB & ""
    connection.ConnectionTimeout = 3
    connection.CommandTimeout = 3
    connection.Open
    
    connection.Execute ("INSERT INTO electric (amount, finally) VALUES (6666, 0);")
    
    Set recordset = connection.Execute(query)
    For i = 0 To recordset.Fields.Count - 1
        Range("A1").Offset(0, i).Value = recordset.Fields(i).Name
    Next
    Range("A1").Offset(1, 0).CopyFromRecordset recordset
        
    connection.Close
    Set connection = Nothing
    Set recordset = Nothing
    
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Save
End Sub

Sub MySQLQuery(control As IRibbonControl)
    FormMySQL.Show
End Sub

Private Sub ButExecute_Click()
    Const title = "Ðåçóëüòàò çàïèòó"
    Dim table As ListObject
    Dim x As Range
    connection = "ODBC;DRIVER={" & Trim(TxtDriver.text) & "};SERVER=" & Trim(TxtServer.text) & ";DATABASE=" & Trim(TxtDatabase.text) & ";USER=" & Trim(TxtUser.text) & ";PASSWORD=" & Trim(TxtPassword.text) & ";"
        Worksheets.Add
        On Error GoTo Errhandler
        Set table = ActiveSheet.ListObjects.Add(xlSrcExternal, connection, True, xlYes, Range("A2"))
        With table.QueryTable
            .CommandType = xlCmdSql
            .CommandText = TxtQuery.text
            .Refresh False
            .Delete
        End With
        Set x = Range(Cells(1, 1), Cells(1, (Cells(2, Columns.Count).End(xlToLeft).Column)))
        With x
            .Merge
            .HorizontalAlignment = xlCenter
            .Font.Bold = True
            .Value = title
        End With
        Range("A1").AddComment TxtQuery.text
        Range("A1").Comment.Visible = False
    Unload FormMySQL
    Exit Sub
Errhandler:
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    Application.DisplayAlerts = True
    MsgBox "Íà æàëü, òðàïèëàñÿ ïîìèëêà - " & Err & vbNewLine & Err.Description, vbOKOnly, "Ïîìèëêà"
End Sub
Private Sub UserForm_Initialize()
   Set MySheet = Workbooks("VBA.xlam").Worksheets("Ëèñò1")
    TxtDriver.text = MySheet.Range("B1")
    TxtServer.text = MySheet.Range("B2")
    TxtDatabase.text = MySheet.Range("B3")
    TxtUser.text = MySheet.Range("B4")
    TxtPassword.text = MySheet.Range("B5")
    TxtQuery.text = MySheet.Range("B6")
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Set MySheet = Workbooks("VBA.xlam").Worksheets("Ëèñò1")
    MySheet.Range("B1") = Trim(TxtDriver.text)
    MySheet.Range("B2") = Trim(TxtServer.text)
    MySheet.Range("B3") = Trim(TxtDatabase.text)
    MySheet.Range("B4") = Trim(TxtUser.text)
    MySheet.Range("B5") = Trim(TxtPassword.text)
    MySheet.Range("B6") = Trim(TxtQuery.text)
End Sub

Private Sub Workbook_Open()
    driverFormMySQL = "MySQL ODBC 5.3 Unicode Driver"
    ipFormMySQL = "127.0.0.1"
    databaseFormMySQL = "database1"
    userFormMySQL = "root"
    passwordFormMySQL = "1111"
    queryFormMySQL = ""
End Sub

Option Explicit
Public driverFormMySQL As String
Public ipFormMySQL As String
Public databaseFormMySQL As String
Public userFormMySQL As String
Public passwordFormMySQL As String
Public queryFormMySQL As String

Sub Start()
    FormMySQL.Show
End Sub

Private Sub ButExecute_Click()
    Const title = "Ðåçóëüòàò çàïèòó"
    connection = "ODBC;DRIVER={" & Trim(TxtDriver.text) & "};SERVER=" & Trim(TxtIP.text) & ";DATABASE=" & Trim(TxtDatabase.text) & ";USER=" & Trim(TxtUser.text) & ";PASSWORD=" & Trim(TxtPassword.text) & ";"
    Dim table As ListObject
    Dim x As Range
        Worksheets.Add
        On Error GoTo Errhandler
        Set table = ActiveSheet.ListObjects.Add(xlSrcExternal, connection, True, xlYes, Range("A2"))
        With table.QueryTable
            .CommandType = xlCmdSql
            .CommandText = TxtQuery.text
            .Refresh False
            .Delete
        End With
        Set x = Range(Cells(1, 1), Cells(1, (Cells(2, Columns.Count).End(xlToLeft).Column)))
        With x
            .Merge
            .HorizontalAlignment = xlCenter
            .Font.Bold = True
            .Value = title
        End With
        Range("A1").AddComment TxtQuery.text
        Range("A1").Comment.Visible = False
    Unload FormMySQL
    Exit Sub
Errhandler:
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    Application.DisplayAlerts = True
    MsgBox "Íà æàëü, òðàïèëàñÿ ïîìèëêà - " & Err & vbNewLine & Err.Description, vbOKOnly, "Ïîìèëêà"
End Sub
Private Sub UserForm_Initialize()
    TxtDriver.text = driverFormMySQL
    TxtIP.text = ipFormMySQL
    TxtDatabase.text = databaseFormMySQL
    TxtUser.text = userFormMySQL
    TxtPassword.text = passwordFormMySQL
    TxtQuery.text = queryFormMySQL
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    driverFormMySQL = Trim(TxtDriver.text)
    ipFormMySQL = Trim(TxtIP.text)
    databaseFormMySQL = Trim(TxtDatabase.text)
    userFormMySQL = Trim(TxtUser.text)
    passwordFormMySQL = Trim(TxtPassword.text)
    queryFormMySQL = Trim(TxtQuery.text)
End Sub

Sub Query1()
    Const title = "Все данные из таблицы"
    Const query = "SELECT * FROM table1;"
    Call CreateTableFromMySQL(title, query)
End Sub

Public Sub CreateTableFromMySQL(title As String, query As String)
    Const driver = "{MySQL ODBC 5.2 Unicode Driver}"
    Const server = "192.168.1.4"
    Const database = "lte_energo"
    Const user = "wges"
    Const password = "1111"
    Const connection = "ODBC;DRIVER=" & driver & ";SERVER=" & server & ";DATABASE=" & database & ";USER=" & user & ";PASSWORD=" & password & ";"
    Dim table As ListObject
    Dim x As range
        Worksheets.Add
        Set table = ActiveSheet.ListObjects.Add(xlSrcExternal, connection, True, xlYes, range("A2"))
        With table.QueryTable
            .CommandType = xlCmdSql
            .CommandText = query
            .Refresh False
            .Delete
        End With
        Set x = range(Cells(1, 1), Cells(1, (Cells(2, Columns.Count).End(xlToLeft).Column)))
        With x
            .Merge
            .HorizontalAlignment = xlCenter
            .Font.Bold = True
            .Value = title
        End With
        range("A1").AddComment query
End Sub

.RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False

    Dim qt As QueryTable
    Set qt = ActiveSheet.ListObjects.Add(SourceType:=XlListObjectSourceType.xlSrcQuery, Source:=recordset, Destination:=ActiveSheet.Range("A2")).QueryTable
    With qt
        RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With

ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$H$10"), , xlYes).Name = _
        "Таблица1"

Sub DataFromMySQL()
    Const driver = "{MySQL ODBC 5.2 Unicode Driver}"
    Const server = "ХХХХ"
    Const database = "ХХХХ"
    Const user = "ХХХХ"
    Const password = "ХХХХ"
    Const query = "SELECT address , SUM(motors_lte.power) FROM objects JOIN motors_lte USING(idObject) GROUP BY address"
    Set connection = CreateObject("ADODB.Connection")
    Set recordset = CreateObject("ADODB.Recordset")
    connection.Open "Driver=" & driver & ";Server=" & server & ";Database=" & database & ";User=" & user & ";Password=" & password & ";"
    recordset.Open query, connection
    Sheets.Add.Name = "Лист " & Worksheets.Count + 1 & " sql"
    With recordset
        For i = 0 To recordset.Fields.Count - 1
            ActiveCell.Offset(0, i).Value = recordset.Fields(i).Name
        Next
        ActiveCell.Offset(1, 0).CopyFromRecordset recordset
    End With
    recordset.Close
    Set recordset = Nothing
    connection.Close
    Set connection = Nothing
End Sub