strSQL = "SELECT '' AS Статус, 'Банкомат' AS Устройство, [OLD$].Подразделение, [OLD$].Адрес, [OLD$].Номер, 
'' AS [Дата 1-й загрузки], '' AS [ЛимитА], [OLD$].Название  FROM [OLD$] INNER JOIN [NEW$] ON ([OLD$].[Серийный номер] = 
[NEW$].[Серийный номер]) AND ([OLD$].Адрес = [NEW$].Адрес) WHERE ((([OLD$].Выдача)='Да') AND [OLD$].Название Like 'ККО*')
 ORDER BY [OLD$].Подразделение, [OLD$].Адрес, [OLD$].Номер"

......агрузки], IIf([NEW$].[Название] Like 'ККО*',45,270) AS [ЛимитА] FROM ....

Private Sub GenerateReportSQL(strSQL As String)
Dim ws As Worksheet
Dim qry As QueryTable
Dim strPath As String
Dim strName As String
Dim strCon As String
'Dim strSQL As String
Dim strPosition As String
Dim strRng As String
Dim tm As Double

    With ThisWorkbook
        On Error Resume Next
        Set ws = .Worksheets("Отчет")
        On Error GoTo 0
        If ws Is Nothing Then Set ws = .Worksheets.Add(after:=.Worksheets(.Worksheets.Count))
        
        'tm = Timer
        
        strName = .FullName
        strPath = .Path
        strRng = "A2:U"
        strCon = "ODBC;DSN=Excel Files;" & _
                 "DBQ=" & strName & ";" & _
                 "DefaultDir=" & strPath & ";" & _
                 "DriverId=1046;" & _
                 "MaxBufferSize=2048;" & _
                 "Page Timeout=5;"
        
        With ws
            If Val(Application.Version) > 11 Then DeleteConnections_12
            .Cells.Clear
            .Name = "Отчет"
            Set qry = .QueryTables.Add(strCon, .Range("A1"), strSQL)
            With qry
                .BackgroundQuery = False
                .Refresh
                .Delete
            End With
        End With
    End With
    'MsgBox Format((Timer - tm) * 1000, "00.0000")
    'ws.Activate
End Sub

.....загрузки], IIf([NEW$].[Название] Like 'ККО%',45,270) AS [ЛимитА.....