Wraprows for Excel 2019 version

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    cols = {"Amount","OR","DATE"},
    toList = Table.ToColumns(Table.RemoveColumns(Source,{"Nickname"})),
    comb = List.Accumulate({{0,3},{3,3}},#table({}, {}),(s,c)=> Table.Combine({s, Table.FromColumns(List.Range(toList,c{0},c{1}),cols)})),
    result = Table.Sort(comb,{{"OR", Order.Ascending}})
in
    result

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    t1 = Table.SelectColumns(Source,{"Amount1", "OR No.1", "Date1"}),
    t2 = Table.RenameColumns(Table.SelectColumns(Source,{"Amount2", "OR No.2", "Date2"}),{{"Amount2", "Amount1"}, {"OR No.2", "OR No.1"}, {"Date2", "Date1"}}),
    result = Table.Sort(Table.Combine({t1,t2}),{{"OR No.1", Order.Ascending}})
in
    result