For i = 1 To 8
       Var_Array(i) = ActiveCell.Value
       ActiveCell.Offset(1, 0).Select
Next

For i = 1 To 8
Massiv = Massiv & Var_Array(i) & Chr(13)
Next

Добавленный_Cтолбец = Table.AddColumn(Источник, "Добавленный", each if [#"Столбец-3"] = null then 
each if [#"Столбец-2"] = null then 
"Столбец-2-Пустой" else 
"Столбец-2 - не пустой" 
else 
"Столбец-3 - Не пустой"),

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
 
    Источник_трансформ = Table.TransformColumnTypes(Источник,{{"Маршрут", Int64.Type}, {"Направление", type text}, {"Рабочий столбец1", Int64.Type}, {"Рабочий столбец2", Int64.Type}, {"Рабочий столбец3", Int64.Type}, {"Рабочий столбец4", Int64.Type}}),
 
    Добавленный_столб= Table.AddColumn(Источник_трансформ, "Добавленный столбец", each if [Рабочий столбец2] = null then each Text.Combine([Рабочий столбец1][Рабочий столбец4],",") else null )
in
    Добавленный_столб

ormula.Firewall: Запрос "Отчёт" (шаг "Обьедение_2ух_Столбцов") ссылается на другие запросы или этапы и поэтому не может напрямую обращаться к источнику данных. Измените эту комбинацию данных.

Это ошибки, которые возникают из-за встроенного в Power BI Fomrula.Firewall - механизма, который следит, чтобы
 данные из Power BI передавались только согласно выставленным правилам доступа. 
Т.е. Power Bi пытается защитить нас, чтобы мы случайно 
не отправили какие-либо данные (вроде токена) на сервер-злоумышленника. 

Кючик1_плюс_название_Оригинальной_таблицы = Ключик1 & "+" & Название_Таблы_1,
Кючик2_плюс_название_Сопоставляемой_таблицы = Ключик2 & "+" & Название_Таблы_2,

Обьедение_2ух_Столбцов = Table.Join(Столбцы_Оригинальной_таблицы_плюс_Название_Оригинальной_Таблицы, {Кючик1_плюс_название_Оригинальной_таблицы}, Нужные_Столбцы_из_Сопоставляемой_Таблицы , {Кючик2_плюс_название_Сопоставляемой_таблицы}, JoinKind.LeftOuter)

Range("Таблица1[[#Headers],[1]]").Select
ActiveSheet.ListObjects("Таблица1").Name = "Таблица10"

let

Key = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content]{0}[Ключ],

If Key <> ""(или null) then
...
идет любой код PQ ... Table2
...
End If

далее продолжается другой код PQ ... Table3

In

If Key = "" then
Table2
Else
Table3
End if

Операция соединения не должна создавать таблицу с повторяющимися именами столбцов ("имя столбца")

let
    Source = {"Параметр-1"} & Нужные[Столбцы],
    neededCols = Table.SelectColumns(Таблица2, Source),
    renJoinCol = Table.RenameColumns(neededCols, {"Параметр-1", "join"}),
    joined = Table.Join(Таблица3, {"Параметр-1"}, renJoinCol, {"join"}, JoinKind.LeftOuter),
    delJoinCol = Table.RemoveColumns(joined,{"join"}),
    ordered = Table.Sort(delJoinCol,{{"Размер", Order.Ascending}})
in
    ordered

let
    Key_Peremennaya = Ключпеременная[Столбец1],
    Source1 = Key_Peremennaya & Нужные[Столбцы],
    neededCols1 = Table.SelectColumns(Таблица12, Source1),
    renJoinCol = Table.RenameColumns(neededCols1, {Key_Peremennaya, "join"}),
    joined = Table.Join(Таблица15, Key_Peremennaya, renJoinCol, {"join"}, JoinKind.LeftOuter),
    delJoinCol = Table.RemoveColumns(joined,{"join"}),
    ordered1 = Table.Sort(delJoinCol,{{"Размер", Order.Ascending}})
in
    ordered1

Expression.Error: Ожидалось значение RenameOperations.
Подробные сведения:
    List

n = 1
Do While ActiveCell <> ""

Parametr = ActiveCell.Address
Set Parametro+n = ActiveSheet.Range(Parametr)

ActiveCell.Offset(1, 0).Select
n = n + 1
Loop