Для решения вопроса можно использовать PowerQuery.
Отформатируйте данные в виде таблицы (CTRL-T), назовите таблицу tbl_Packages и используйте этот M-код:
let
Source = Excel.CurrentWorkbook(){[Name="tbl_Packages"]}[Content],
Change_type = Table.TransformColumnTypes(Source,{{"Arrival Time", type text}, {"01:00", Int64.Type}, {"02:00", Int64.Type}, {"03:00", Int64.Type}, {"04:00", Int64.Type}}),
Unpivot_Other = Table.UnpivotOtherColumns(Change_type, {"Arrival Time"}, "Time", "Count"),
Filter_Rows = Table.SelectRows(Unpivot_Other, each ([Count] <> 0)),
Custom_Column = Table.AddColumn(Filter_Rows, "LIst", each List.Numbers(1,[Count])),
Expand_List = Table.ExpandListColumn(Custom_Column, "LIst"),
Remove_other_columns = Table.SelectColumns(Expand_List,{"Arrival Time", "Time"}),
Sort_Rows = Table.Sort(Remove_other_columns,{{"Time", Order.Ascending}, {"Arrival Time", Order.Ascending}})
in
Sort_Rows
