Put result of ActiveWorkbook.Queries in Array instead of in a Worksheet

[helivw]

I made a Querie:

ActiveWorkbook.Queries.Add Name:="QueryTab", Formula:="let" & Chr(13) & "" & Chr(10) & _"    Bron = Excel.CurrentWorkbook(){[Name=""Finost_OI_1""]}[Content]," & Chr(13) & "" & Chr(10) & _"    #""Type gewijzigd"" = Table.TransformColumnTypes(Bron,{{""Date"", type date}, {""ArtNr"", type text}})," & Chr(13) & "" & Chr(10) & _"    #""Rijen gefilterd"" = Table.SelectRows(#""Type gewijzigd"", each Text.Contains([ArtNr], ""DEP"") or Text.Contains([ArtNr], ""H0O""))," & Chr(13) & "" & Chr(10) & _"    #""Kolommen verwijderd"" = Table.RemoveColumns(#""Rijen gefilterd"",{""Ac Nr"", ""Ac Name"", ""Discs"", ""Total"", ""Remarks""})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Kolommen verwijderd"""