#"Повышенные заголовки" = 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:\-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"