Sub ProcessAndDownloadExchangeRates()
...
тут код, который достает данные
...
а затем вызывается выполнение pq-скриптов
RefreshAllAndWait
End Sub

Sub RefreshAllAndWait()    
' Запускаем обновление всех запросов Power Query    
ThisWorkbook.RefreshAll    
' Ждем завершения обновления    
Dim conn As WorkbookConnection    
Dim allDone As Boolean    
Do        
DoEvents ' Позволяет Excel обновить интерфейс        
allDone = True        
For Each conn In ThisWorkbook.Connections            
On Error Resume Next ' Игнорируем ошибки, если свойство Refreshing недоступно            
If conn.Type = xlConnectionTypeOLEDB Or conn.Type = xlConnectionTypeModel Then                
If conn.Refreshing Then                    
allDone = False                    
Exit For                
End If            
End If            
On Error GoTo 0        
Next conn    
Loop Until 
allDone    
MsgBox "Все запросы Power Query успешно обновлены!", vbInformation
End Sub

Function GetUserEmail() As String
    On Error Resume Next
    Dim olApp As Object
    Dim olNs As Object
    Set olApp = CreateObject("Outlook.Application")
    Set olNs = olApp.GetNamespace("MAPI")

    ' Получаем email текущего пользователя
    GetUserEmail = olNs.CurrentUser.AddressEntry.GetExchangeUser().PrimarySmtpAddress

    ' Обработка ошибки, если Outlook не настроен или нет доступа к email
    If Err.Number <> 0 Then
        GetUserEmail = "Email не найден"
    End If
    On Error GoTo 0
End Function

    Dim userAccount As String
    userAccount = GetUserEmail()  ' Получаем email текущего пользователя через Outlook

Function ПроверкаCAS(CASNumber As String) As Boolean
    Dim regex As Object
    Dim match As Object
    Dim parts() As String
    Dim digits As String
    Dim checkDigit As Integer
    Dim calculatedDigit As Integer
    Dim i As Integer

    ' Создаем объект регулярного выражения
    Set regex = CreateObject("VBScript.RegExp")

    ' Определяем шаблон регулярного выражения для CAS-номера
    ' Шаблон: от 2 до 7 цифр, затем дефис, 2 цифры, дефис, 1 цифра
    regex.Pattern = "^\d{2,7}-\d{2}-\d{1}$"
    regex.IgnoreCase = True
    regex.Global = False

    ' Проверка на соответствие шаблону
    If Not regex.Test(CASNumber) Then
        ПроверкаCAS = False
        Exit Function
    End If

    ' Если формат правильный, проверяем контрольную цифру
    parts = Split(CASNumber, "-")
    digits = parts(0) & parts(1)
    checkDigit = Val(parts(2))

    calculatedDigit = 0
    For i = Len(digits) To 1 Step -1
        calculatedDigit = calculatedDigit + Val(Mid(digits, i, 1)) * (Len(digits) - i + 1)
    Next i
    calculatedDigit = calculatedDigit Mod 10

    ' Сравниваем рассчитанную контрольную цифру с той, что введена
    ПроверкаCAS = (calculatedDigit = checkDigit)
End Function

=НЕ(ПроверкаCAS(C6))

=НЕ(ЕПУСТО(C6))

    #"Объединенные запросы" = Table.NestedJoin(#"Added Custom", {"Key_1"}, Query02, {"Key_1"}, "Query02", JoinKind.LeftOuter),
    #"Развернутый элемент" = Table.ExpandTableColumn(#"Объединенные запросы", "Query02", {"Invoice"}, {"Query02.Invoice"}),

  #"Объединенные запросы" = Table.NestedJoin(#"Added Custom", {"Key_1"}, Query02, {"Key_1"}, "Query02", JoinKind.LeftOuter),     
  #"Развернутый элемент" = Table.ExpandTableColumn(#"Объединенные запросы", "Query02", {"Key_1"}, {"Query02.Key_1"}),

// ловит Error в датах
    #"Добавлен пользовательский объект5" = Table.AddColumn(#"Измененный тип1", "TryDate1", each try if [Column3] is null then false else true otherwise false, type logical),
// ловит неправильный формат в датах
    #"Добавлен пользовательский объект7" = Table.AddColumn(#"Добавлен пользовательский объект5", "TryDate2", each
        let
            DateTry = try DateTime.FromText([Column3]),
            Result = if DateTry[HasError] then true else false
        in
            Result, type logical),
// ловит Error в описаниях
    #"Добавлен пользовательский объект6" = Table.AddColumn(#"Добавлен пользовательский объект7", "TryText", each try if [Column1] is null then false else true otherwise false, type logical),
// ловит Error в номерах
    #"Добавлен пользовательский объект5" = Table.AddColumn(#"Добавлен пользовательский объект7", "TryNumber", each try if [Column2] is null then false else true otherwise false, type logical),

#"Замененное значение2" = Table.ReplaceValue(#"Замененное значение1",null,"Empty",Replacer.ReplaceValue,{"Счет №1"}),

 #"Замененное значение3" = Table.ReplaceValue(#"Замененное значение2","Empty",{"Счет №2"},Replacer.ReplaceValue,{"Счет №1"})

#"Замененное значение3" = Table.ReplaceValue(#"Замененное значение2","Empty",{"#Счет №2"},Replacer.ReplaceValue,{"Счет №1"})