Adding Table to Append Query

[de3pster]

Hi I have a code now that adds a table to power query and creates a connection within the workbook. I would like to ask, how can I add this new query to an append query that already exists?

This is the code I have now

Thank you.

  Set wb = ActiveWorkbook
    Set lo = ActiveSheet.ListObjects(1)
    
         sName = lo.Name
         sFormula = "Excel.CurrentWorkbook(){[Name=""" & sName & """]}[Content]"
        
        
    
         'Add query
         wb.Queries.Add Name:=sName, _
           Formula:="let" & Chr(13) & "" & Chr(10) & "    Source = Excel.CurrentWorkbook(){[Name=""" & sName & """]}[Content]" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    Source"
         'Add connection
          wb.Connections.Add2 Name:="Query - " & sName, _
           Description:="Connection to the '" & sName & "' query in the workbook.", _
           ConnectionString:="OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=" & sName & ";Extended Properties=""""", _
           CommandText:="SELECT * FROM [" & sName & "]", _
           lCmdtype:=2, _
           CreateModelConnection:=False, _
           ImportRelationships:=False