Ganz schönes Chaos da, in deinem Query - kein Wunder das du nicht durchsiehst.

Mal leserlicher:

Set objWkbQ = ActiveWorkbook.Queries.Add( _
    Name:="Übernachtungen_1_1", _
    Formula:="let" & vbNewLine & _
                "Quelle = Excel.CurrentWorkbook(){[Name=""Tabelle1""]}[Content]," & vbNewLine & _
                "#""Gefilterte Zeilen"" = Table.SelectRows(Quelle, each ([Monat Jahr Text] =""November 2020"") and ([Zahlungsart] <> ""Selbstzahler""))," & vbNewLine & _
                "#""Duplizierte Spalte"" = Table.DuplicateColumn(#""Gefilterte Zeilen"", ""Monat Jahr Zahl"", ""Monat Jahr Zahl - Kopie"")," & vbNewLine & _
                "#""Duplizierte Spalte1"" = Table.DuplicateColumn(#""Duplizierte Spalte"", ""Klient"", ""Klient - Kopie"")," & vbNewLine & _
                "#""Duplizierte Spalte2"" = Table.DuplicateColumn(#""Duplizierte Spalte1"", ""Zahlungsart"", ""Zahlungsart - Kopie"")," & vbNewLine & _
                "#""Zusammengeführte Spalten"" = Table.CombineColumns(Table.TransformColumnTypes(#""Duplizierte Spalte2"", {{""Monat Jahr Zahl - Kopie"", type text}}, ""de-CH""),{""Monat Jahr Zahl - Kopie"", ""Klient - Kopie"", ""Zahlungsart - Kopie""},Combiner.CombineTextByDelimiter(""_"", QuoteStyle.None),""Zusammengeführt"")," & vbNewLine & _
                "#""Duplizierte Spalte3"" = Table.DuplicateColumn(#""Zusammengeführte Spalten"", ""Verrechnungskey"", ""Verrechnungskey - Kopie"")," & vbNewLine & _
                "#""Duplizierte Spalte4"" = Table.DuplicateColumn(#""Duplizierte Spalte3"", ""Betrag"", ""Betrag - Kopie"")," & vbNewLine & _
                "#""Zusammengeführte Spalten1"" = Table.CombineColumns(Table.TransformColumnTypes(#""Duplizierte Spalte4"", {{""Betrag - Kopie"", type text}}, ""de-CH""),{""Verrechnungskey - Kopie"", ""Betrag - Kopie""},Combiner.CombineTextByDelimiter(""_"", QuoteStyle.None),""Zusammengeführt.1"")," & vbNewLine & _
                "#""Neu angeordnete Spalten"" = Table.ReorderColumns(#""Zusammengeführte Spalten1"",{""Zusammengeführt"", ""Verrechnungskey"", ""Zusammengeführt.1"", ""Klient"", ""Betrag"", ""Listenfeldzeile"", ""Monat Text"", ""Monat Zahl"", ""Jahr"", ""Monat Jahr Zahl"", ""Monat Jahr Text"", ""Datum"", ""Zahlungsart"", ""Schulden"", ""Gutschein"", ""Bemerkungen2""})," & vbNewLine & _
                "    #""Entfernte Spalten"" = Table.RemoveColumns(#""Neu angeordnete Spalten"",{""Listenfeldzeile"", ""Monat Text"", ""Monat Zahl"", ""Jahr"", ""Monat Jahr Zahl"", ""Monat Jahr Text"", ""Datum"", ""Zahlungsart"", ""Schulden"", ""Gutschein"", ""Bemerkungen2""})" & vbNewLine & _
             "in" & vbNewLine & _
                "#""Entfernte Spalten""")

Mit der Variable Monat, sollte es dann so ausschauen:

Dim objWkbQ As Excel.WorkbookQuery
Dim Monat As String

Monat = Sheets("CRM_Verwaltung").Range("DO14").Value

Set objWkbQ = ActiveWorkbook.Queries.Add( _
    Name:="Übernachtungen_1_1", _
    Formula:="let" & vbNewLine & _
                "Quelle = Excel.CurrentWorkbook(){[Name=""Tabelle1""]}[Content]," & vbNewLine & _
                "#""Gefilterte Zeilen"" = Table.SelectRows(Quelle, each ([Monat Jahr Text] = """ & Monat & """) and ([Zahlungsart] <> ""Selbstzahler""))," & vbNewLine & _
                "#""Duplizierte Spalte"" = Table.DuplicateColumn(#""Gefilterte Zeilen"", ""Monat Jahr Zahl"", ""Monat Jahr Zahl - Kopie"")," & vbNewLine & _
                "#""Duplizierte Spalte1"" = Table.DuplicateColumn(#""Duplizierte Spalte"", ""Klient"", ""Klient - Kopie"")," & vbNewLine & _
                "#""Duplizierte Spalte2"" = Table.DuplicateColumn(#""Duplizierte Spalte1"", ""Zahlungsart"", ""Zahlungsart - Kopie"")," & vbNewLine & _
                "#""Zusammengeführte Spalten"" = Table.CombineColumns(Table.TransformColumnTypes(#""Duplizierte Spalte2"", {{""Monat Jahr Zahl - Kopie"", type text}}, ""de-CH""),{""Monat Jahr Zahl - Kopie"", ""Klient - Kopie"", ""Zahlungsart - Kopie""},Combiner.CombineTextByDelimiter(""_"", QuoteStyle.None),""Zusammengeführt"")," & vbNewLine & _
                "#""Duplizierte Spalte3"" = Table.DuplicateColumn(#""Zusammengeführte Spalten"", ""Verrechnungskey"", ""Verrechnungskey - Kopie"")," & vbNewLine & _
                "#""Duplizierte Spalte4"" = Table.DuplicateColumn(#""Duplizierte Spalte3"", ""Betrag"", ""Betrag - Kopie"")," & vbNewLine & _
                "#""Zusammengeführte Spalten1"" = Table.CombineColumns(Table.TransformColumnTypes(#""Duplizierte Spalte4"", {{""Betrag - Kopie"", type text}}, ""de-CH""),{""Verrechnungskey - Kopie"", ""Betrag - Kopie""},Combiner.CombineTextByDelimiter(""_"", QuoteStyle.None),""Zusammengeführt.1"")," & vbNewLine & _
                "#""Neu angeordnete Spalten"" = Table.ReorderColumns(#""Zusammengeführte Spalten1"",{""Zusammengeführt"", ""Verrechnungskey"", ""Zusammengeführt.1"", ""Klient"", ""Betrag"", ""Listenfeldzeile"", ""Monat Text"", ""Monat Zahl"", ""Jahr"", ""Monat Jahr Zahl"", ""Monat Jahr Text"", ""Datum"", ""Zahlungsart"", ""Schulden"", ""Gutschein"", ""Bemerkungen2""})," & vbNewLine & _
                "    #""Entfernte Spalten"" = Table.RemoveColumns(#""Neu angeordnete Spalten"",{""Listenfeldzeile"", ""Monat Text"", ""Monat Zahl"", ""Jahr"", ""Monat Jahr Zahl"", ""Monat Jahr Text"", ""Datum"", ""Zahlungsart"", ""Schulden"", ""Gutschein"", ""Bemerkungen2""})" & vbNewLine & _
             "in" & vbNewLine & _
                "#""Entfernte Spalten""")

Natürlich ungetestet, ich bastle mir das nicht auch noch zusammen.

Grüße