Dim ws As Worksheet
    Dim rng As Range
    
    Set ws = Me.Sheets("техн")
    Set rng = ws.Range("A1")
    
    If rng = 0 Then Me.Close 

= CALCULATE ( [Дельты]; 
   FILTER(VALUES('Таблица1'[Клиент]);
   RANKX( ALL('Таблица1'[Клиент]); [Дельты];;ASC)<=2)
)

= VAR TB = SUMMARIZE('Таблица1'; 'Таблица1'[Клиент]; 'Календарь'[WEEK_END]; "dlt"; [Дельты])
VAR TOP2 = TOPN(2; TB; [dlt]; ASC)
VAR RES = CALCULATE([Дельты]; TOP2)

RETURN RES

VAR CUR_DT = MAX('Таблица1'[Дата])
VAR FLT = FILTER(ALL('Таблица1'[Тип];'Таблица1'[ФЛ_ЮЛ]; 'Таблица1'[Исключение]);
         'Таблица1'[Тип] = "Основной"            
         && 'Таблица1'[ФЛ_ЮЛ] = "ЮЛ"
         && 'Таблица1'[Исключение] = 0
      )
VAR PREV = CALCULATE( SUM('Таблица1'[Сумма]); 
          FLT; 'Таблица1'[Дата] = CUR_DT - 7 
           )
VAR CURR = CALCULATE( SUM('Таблица1'[Сумма]); 
          FLT; 'Таблица1'[Дата] = CUR_DT 
           )
VAR RES = CURR - PREV

RETURN RES

Sub ChangeConn()    
    Dim ws As Worksheet
    Dim strQuery As String
    Dim st As Date, fn As Date
    
    Set ws = ThisWorkbook.Sheets("параметры")
    
    st = ws.Range("B2").Value
    fn = ws.Range("C2").Value
    SecondPart = ws.Range("A2").Value
    
    strQuery = "Declare @startdate date, @finishdate date " & _
                "Set @startdate = '" & Format(CDate(st), "dd\/mm\/yyyy") & "' " & _
                "Set @finishdate = '" & Format(fn, "dd\/mm\/yyyy") & "'; " & _
                SecondPart
    
    ws.Range("A5") = strQuery
    
End Sub

Replace(..., ", ", "")