RefreshAllAndWait

ThisWorkbook.RefreshAll
DoEvents

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

// Запрос2
let
    Источник = Запрос1[шаг1]
in
    Источник

и

// Запрос2
let
    Источник = Value.Metadata(Запрос1)[ннада]
in
    Источник

// Запрос0
let
    Источник = Excel.CurrentWorkbook(){[Name="Таб1"]}[Content],
    шаг1 = Table.RemoveLastN(Источник,2)
in
    шаг1

// Запрос1
let
    Источник = Запрос0,
    шаг2 = Table.RemoveLastN(Источник,2)
in
    шаг2

// Запрос2
let
    Источник = Запрос0
in
    Источник

=LEFT(A1,FIND(" ",A1,FIND(" ",A1,1)+1)-1)

=ЛЕВСИМВ(A1;НАЙТИ(" ";A1;НАЙТИ(" ";A1;1)+1)-1)