#"Повышенные заголовки" = Table.PromoteHeaders(#"Строки с примененным фильтром", [PromoteAllScalars=true]),
#"Переименованные столбцы" = Table.RenameColumns(#"Повышенные заголовки",{{"211.xlsx", "Name"}})

Sub nomer()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim wS As Worksheet

For Each wS In ActiveWorkbook.Worksheets

k = 1
For i = 8 To 200
If wS.Cells(i, 5).Interior.Color <> 11389944
     wS.Cells(i, 1).Value = k
   Else: k = k + 1
   End If
   Next i
 
 Next wS
End Sub

let
    Источник = Excel.Workbook(File.Contents("Z:\-= 1 КВАРТАЛ 2018 =-\обработка_1кв18.xlsx"), null, true),
    Накл_Sheet = Источник{[Item="Накл",Kind="Sheet"]}[Data],
    #"Повышенные заголовки" = Table.PromoteHeaders(Накл_Sheet),
    #"Измененный тип" = Table.TransformColumnTypes(#"Повышенные заголовки",{{"Поставщик", type text}, {"Покупатель", type text}, {"N", Int64.Type}, {"Дата накл", type date}, {"Сумма по полю Сумма", type number}, {"Среднее по полю НДС", type number}, {"Сумма по полю Сумма НДС", type number}}),
    #"Сортированные строки" = Table.Sort(#"Измененный тип",{{"Поставщик", Order.Ascending}, {"Дата накл", Order.Ascending}}),
    #"Строки с применным фильтром" = Table.SelectRows(#"Сортированные строки", each ([Поставщик] <> "Общий итог")),
    #"Добавлен индекс" = Table.AddIndexColumn(#"Строки с применным фильтром", "Индекс", 1, 1),
    #"Переупорядоченные столбцы" = Table.ReorderColumns(#"Добавлен индекс",{"Индекс", "Поставщик", "Покупатель", "N", "Дата накл", "Сумма по полю Сумма", "Среднее по полю НДС", "Сумма по полю Сумма НДС"}),
    #"Переименованные столбцы" = Table.RenameColumns(#"Переупорядоченные столбцы",{{"Сумма по полю Сумма", "Сумма"}, {"Среднее по полю НДС", "НДС"}, {"Сумма по полю Сумма НДС", "Сумма НДС"}})
in
    #"Переименованные столбцы"

rngN.Columns(1).Formula = rngN.Columns(1).Formula

rngN.Columns(1).TextToColumns

let
    Источник = Excel.Workbook(File.Contents("Z:\-DL-\jasperFormPeriodDeeper(50).xls"), null, true),
    CurrControlInfoReq1 = Источник{[Name="CurrControlInfoReq"]}[Data],
    #"Измененный тип" = Table.TransformColumnTypes(CurrControlInfoReq1,{{"Column1", type text}, {"Column2", type text}, {"Column3", type text}, {"Column4", type text}, {"Column5", type text}, {"Column6", type text}, {"Column7", type text}, {"Column8", type text}, {"Column9", type text}, {"Column10", type text}, {"Column11", type text}, {"Column12", type text}, {"Column13", type text}, {"Column14", type text}, {"Column15", type text}, {"Column16", type text}, {"Column17", type text}, {"Column18", type text}, {"Column19", type text}, {"Column20", type text}, {"Column21", type text}, {"Column22", type text}, {"Column23", type text}, {"Column24", type text}, {"Column25", type text}, {"Column26", type text}, {"Column27", type text}, {"Column28", type text}, {"Column29", type text}, {"Column30", type text}, {"Column31", type text}}),
    #"Удаленные столбцы" = Table.RemoveColumns(#"Измененный тип",{"Column1", "Column2", "Column4", "Column5", "Column7", "Column8", "Column9", "Column11", "Column13", "Column14", "Column15", "Column18", "Column21", "Column22", "Column23", "Column24", "Column26", "Column27", "Column28", "Column29", "Column30", "Column31"}),
    #"Строки с применным фильтром" = Table.SelectRows(#"Удаленные столбцы", each ([Column10] <> null and [Column10] <> "Кредит")),
    #"Удаленные столбцы1" = Table.RemoveColumns(#"Строки с применным фильтром",{"Column17", "Column19", "Column20"}),
    #"Переупорядоченные столбцы" = Table.ReorderColumns(#"Удаленные столбцы1",{"Column3", "Column12", "Column16", "Column25", "Column6", "Column10"}),
    #"Измененный тип1" = Table.TransformColumnTypes(#"Переупорядоченные столбцы",{{"Column12", type number}, {"Column16", type number}, {"Column3", type date}}),
    #"Разделить столбец разделителем" = Table.SplitColumn(#"Измененный тип1","Column6",Splitter.SplitTextByDelimiter("#(lf)", QuoteStyle.None),{"Column6.1", "Column6.2", "Column6.3"}),
    #"Измененный тип2" = Table.TransformColumnTypes(#"Разделить столбец разделителем",{{"Column6.1", type number}, {"Column6.2", Int64.Type}, {"Column6.3", type text}}),
    #"Удаленные столбцы2" = Table.RemoveColumns(#"Измененный тип2",{"Column6.1", "Column6.2"}),
    #"Разделить столбец разделителем1" = Table.SplitColumn(#"Удаленные столбцы2","Column10",Splitter.SplitTextByDelimiter("#(lf)", QuoteStyle.None),{"Column10.1", "Column10.2", "Column10.3"}),
    #"Измененный тип3" = Table.TransformColumnTypes(#"Разделить столбец разделителем1",{{"Column10.1", type number}, {"Column10.2", Int64.Type}, {"Column10.3", type text}}),
    #"Удаленные столбцы3" = Table.RemoveColumns(#"Измененный тип3",{"Column10.1", "Column10.2"}),
    #"Переупорядоченные столбцы1" = Table.ReorderColumns(#"Удаленные столбцы3",{"Column3", "Column12", "Column16", "Column6.3", "Column10.3", "Column25"}),
    #"Переименованные столбцы" = Table.RenameColumns(#"Переупорядоченные столбцы1",{{"Column3", "Дата"}, {"Column12", "Дебет"}, {"Column16", "Кредит"}, {"Column6.3", "к1"}, {"Column10.3", "к2"}, {"Column25", "назначение"}}),
    #"Добавлен пользовательский объект" = Table.AddColumn(#"Переименованные столбцы", "Custom", each if [#"Дебет"] = null then [#"к1"] else [#"к2"]),
    #"Переупорядоченные столбцы2" = Table.ReorderColumns(#"Добавлен пользовательский объект",{"Дата", "Дебет", "Кредит", "Custom", "назначение", "к1", "к2"})
in
    #"Переупорядоченные столбцы2"

[d:e].Replace What:=" ", Replacement:=""

 Columns("D:D").TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
 Columns("E:E").TextToColumns Destination:=Range("E1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True