werkbladenintegratie met SQL

[snb]

In het bijgevoegde bestand voeg ik 4 werkbladen samen in 1 overzichtswerkblad.
Daarvoor gebruik ik deze code:

Sub M_snb()
   sheet1.Cells.Clear
   sheet2.UsedRange.Rows(1).Copy sheet1.Cells(1)

   For Each it In Sheets
     c00 = c00 & it.Name & vbLf
   Next

    With CreateObject("ADODB.Recordset")
      .Open "SELECT * FROM [" & Join(Filter(Split(c00, vbLf), "Kurs"), "$] Union Select * From [") & "$]", "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml;HDR=Yes;IMEX=1"""
      sheet1.Cells(2, 1).CopyFromRecordset .DataSource
    End With
End Sub

Is er een eenvoudiger SQL-opdracht beschikbaar voor deze excercitie ?

 

[JEC.]

Kan wel gemakkelijker met Power Query

let
    Source = Excel.Workbook(File.Contents("C:\Users\xxx\Downloads\__werkbladintegratie_snb.xlsb"),true,true),
    result = Table.Combine(Table.SelectRows(Source, each Text.Contains([Name], "Kurs"))[Data])
in
    result