How to stop table created from the Power Query Editor from refreshing twice

[sspatriots]

I have the code below that refreshes a Power Query Editor generated table and then does some things to the table. The problem I have is when the code is run, it returns the table back to it's refreshed state without my changes that I made, even though the refresh is the first line of the code. How can I stop it from refreshing when the changes are made? Thanks, SS

Sub Update_TBL_List()
'
' Update TBL_List Macro
'

'
    With Application
        .EnableEvents = False
        .ScreenUpdating = False
        .CutCopyMode = False
        .DisplayAlerts = False
        .Calculation = xlCalculationManual
    End With

    Worksheets("Table Quick Access").ListObjects("TBL_List").Refresh
  
    Columns("D:D").Select
    Selection.Delete Shift:=xlToLeft

    Range("A1").Value2 = "Table File Path"
    Range("C1").Value2 = "Table Name"
    
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    
    Application.Calculation = xlAutomatic

    Range("B2").Select
    ActiveCell.Formula2R1C1 = _
        "=IFERROR(MID(CELL(""address"",INDIRECT([@[Table Name]])),SEARCH("".xlsm]"",CELL(""address"",INDIRECT([@[Table Name]])),1)+6,(SEARCH(""'!$"",CELL(""address"",INDIRECT([@[Table Name]])),1)-(SEARCH("".xlsm]"",CELL(""address"",INDIRECT([@[Table Name]])),1)+6))),""Table Quick Access"")"

    Range("A2").Select
    ActiveCell.Formula2R1C1 = "=CELL(""address"",INDIRECT([@[Table Name]]))"
    
    Range("A2").Select
    Selection.AutoFill Destination:=Range("TBL_List[Table File Path]"), Type:= _
        xlFillDefault

    Columns("A:A").ColumnWidth = 64
    Columns("B:C").ColumnWidth = 32
    Columns("D:E").ColumnWidth = 12
    
    With Application
        .EnableEvents = True
        .ScreenUpdating = True
        .CutCopyMode = False
        .DisplayAlerts = False
'        .Calculation = xlAutomatic
    End With

End Sub

 

[jkpieterse]

Refreshing a PQ query is asynchronous by default, so if your code is fast enough the code finishes before the query. Right-click the query, choose properties and uncheck the async box.

 

[sspatriots]

Refreshing a PQ query is asynchronous by default, so if your code is fast enough the code finishes before the query. Right-click the query, choose properties and uncheck the async box.

Perfect, this is exactly what I needed. Thank you...