let 
Источник = Odbc.DataSource("dsn=CORPORATE", [HierarchicalNavigation=true]),   
PARS_Schema = Источник{[Name="PARS",Kind="Schema"]}[Data], 
V_316_EXCEL_View = PARS_Schema{[Name="V_316_EXCEL",Kind="View"]}[Data]
in
V_316_EXCEL_View

let
      
    Источник = Excel.Workbook(File.Contents("\\путь к файлу с исходными данными.xlsb"), null, true),
    Источник1 = Источник{[Name="Листсданными"]}[Data],
    Custom1 = Excel.CurrentWorkbook{[Name="фильтр"]}[Content][Column1],
    Custom2 = Table.SelectRows(Источник1, each (List.ContainsAny({[Column10]},Custom1) = true)),
    #"Повышенные заголовки" = Table.PromoteHeaders(Custom2, [PromoteAllScalars=true]),
    #"Измененный тип" = Table.TransformColumnTypes(#"Повышенные заголовки",{{"Показатель Н", type text}, {"Регион", type text}, {"Квартал", type text}, {"№ Сегмента", Int64.Type}, {"Тип клиента", type text}, {"Канал", type text}, {"Аттрибут", type text}, {"Сумма", Int64.Type}, {"Наимен аттрибута", type text}}),
    #"Условный столбец добавлен" = Table.AddColumn(#"Измененный тип", "Полугодие", each if [Квартал] = "2Q2017" then "1H2017" else if [Квартал] = "1Q2017" then "1H2017" else if [Квартал] = "4Q2017" then "2H2017" else if [Квартал] = "3Q2017" then "2H2017" else if [Квартал] = "2Q2018" then "1H2018" else if [Квартал] = "1Q2018" then "1H2018" else if [Квартал] = "3Q2018" then "2H2018" else if [Квартал] = "4Q2018" then "2H2018" else "-"),
    #"Условный столбец добавлен1" = Table.AddColumn(#"Условный столбец добавлен", "Год", each if [Полугодие] = "2H2017" then 2017 else if [Полугодие] = "1H2017" then 2017 else if [Полугодие] = "1H2018" then 2018 else if [Полугодие] = "2H2018" then 2018 else "-"),
    #"Условный столбец добавлен2" = Table.AddColumn(#"Условный столбец добавлен1", "Дата", each if [Квартал] = "1Q2017" then #date(2017, 4, 1) else if [Квартал] = "2Q2017" then #date(2017, 7, 1) else if [Квартал] = "3Q2017" then #date(2017, 10, 1) else if [Квартал] = "4Q2017" then #date(2018, 1, 1) else if [Квартал] = "1Q2018" then #date(2018, 4, 1) else if [Квартал] = "2Q2018" then #date(2018, 7, 1) else if [Квартал] = "3Q2018" then #date(2018, 10, 1) else if [Квартал] = "4Q2018" then #date(2019, 1, 1) else "-"),
    #"Переименованные столбцы" = Table.RenameColumns(#"Условный столбец добавлен2",{{"Полугодие", "За Полугодие"}, {"Год", "За Год"}}),
    #"Измененный тип1" = Table.TransformColumnTypes(#"Переименованные столбцы",{{"Дата", type date}})

in
    #"Измененный тип1"

Custom1 = Excel.CurrentWorkbook(){[Name="фильтр"]}[Content]{0}[Column1]

Sub www()
Application.ScreenUpdating = False
   With [b8].CurrentRegion
       .AutoFilter Field:=5, Criteria1:="1"
       .Offset(1).SpecialCells(12).EntireRow.ClearContents
       .AutoFilter Field:=5, Criteria1:="2"
       .Offset(1).SpecialCells(12).EntireRow.ClearContents
        End With
   ActiveSheet.AutoFilterMode = 0
   Application.ScreenUpdating = True
End Sub