let
    Source = Excel.CurrentWorkbook(){[Name="Data"]}[Content],
    name = {"Наименование","Характеристика"},
    #"Added Custom" = Table.AddColumn(Source, "a", each 
          if Text.StartsWith([Наименование], "Орбита") or Text.StartsWith([Наименование], "Платформа:")
          then 
                let  
                   a=Table.FromColumns({Text.Split([Наименование],"#(lf)"), Text.Split([Характеристика],"#(lf)")},name) 
                in 
                   Table.SelectRows(a, each not List.IsEmpty(List.RemoveMatchingItems(Record.FieldValues(_), {"", null})))
          else 
               Table.FromColumns({{[Наименование]},{[Характеристика]}},name)),
   
    #"Removed Columns" = Table.RemoveColumns(#"Added Custom",name),
    #"Expanded {0}" = Table.ExpandTableColumn(#"Removed Columns", "a",name)
in
    #"Expanded {0}"