let
Source = Excel.CurrentWorkbook(){[Name="Data"]}[Content],
Types= Table.TransformColumnTypes(Source,{{"Date DI", type date}, {"HB", type time}, {"HE", type time}}),
AddedList = Table.AddColumn(Types, "Custom", each List.Times([HB],(Number.From([HE])-Number.From([HB]))*24*60+1,#duration(0,0,1,0))),
ExpandedList = Table.ExpandListColumn(AddedList, "Custom"),
Types2 = Table.TransformColumnTypes(ExpandedList,{{"Custom", type time}})
in
Types2