macro arrange duplicated data based on column

[Mussa]

hello
I have data from COL A: E contain duplicates names in COL B . so what I want macro arrange the data below the duplicate names based on col B .
the result should be from COL K: O

ARRANGE.xlsm
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P
1	DATE	NAME	INVOICE NO	ORDER NO	TOTAL						DATE	NAME	INVOICE NO	ORDER NO	TOTAL
2	1/1/2021	KALL1	INV1000	RD1000	2,000.00						1/1/2021	KALL1	INV1000	RD1000	2,000.00
3	1/2/2021	KALL2	INV1001	RD1001	3,000.00						1/10/2021	KALL1	INV1009	RD1009	2,000.00
4	1/3/2021	KALL3	INV1002	RD1002	4,000.00						1/19/2021	KALL1	INV1018	RD1018	1,500.00
5	1/4/2021	KALL4	INV1003	RD1003	5,000.00						1/2/2021	KALL2	INV1001	RD1001	3,000.00
6	1/5/2021	KALL5	INV1004	RD1004	6,000.00						1/11/2021	KALL2	INV1010	RD1010	2,500.00
7	1/6/2021	KALL6	INV1005	RD1005	2,500.00						1/3/2021	KALL3	INV1002	RD1002	4,000.00
8	1/7/2021	KALL7	INV1006	RD1006	4,500.00						1/12/2021	KALL3	INV1011	RD1011	3,500.00
9	1/8/2021	KALL8	INV1007	RD1007	3,500.00						1/4/2021	KALL4	INV1003	RD1003	5,000.00
10	1/9/2021	KALL9	INV1008	RD1008	1,000.00						1/13/2021	KALL4	INV1012	RD1012	2,500.00
11	1/10/2021	KALL1	INV1009	RD1009	2,000.00						1/5/2021	KALL5	INV1004	RD1004	6,000.00
12	1/11/2021	KALL2	INV1010	RD1010	2,500.00						1/14/2021	KALL5	INV1013	RD1013	1,500.00
13	1/12/2021	KALL3	INV1011	RD1011	3,500.00						1/6/2021	KALL6	INV1005	RD1005	2,500.00
14	1/13/2021	KALL4	INV1012	RD1012	2,500.00						1/15/2021	KALL6	INV1014	RD1014	1,500.00
15	1/14/2021	KALL5	INV1013	RD1013	1,500.00						1/7/2021	KALL7	INV1006	RD1006	4,500.00
16	1/15/2021	KALL6	INV1014	RD1014	1,500.00						1/16/2021	KALL7	INV1015	RD1015	1,500.00
17	1/16/2021	KALL7	INV1015	RD1015	1,500.00						1/8/2021	KALL8	INV1007	RD1007	3,500.00
18	1/17/2021	KALL8	INV1016	RD1016	1,500.00						1/17/2021	KALL8	INV1016	RD1016	1,500.00
19	1/18/2021	KALL9	INV1017	RD1017	1,500.00						1/9/2021	KALL9	INV1008	RD1008	1,000.00
20	1/19/2021	KALL1	INV1018	RD1018	1,500.00						1/18/2021	KALL9	INV1017	RD1017	1,500.00
SHEET1

thanks in advance

 

[Peter_SSs]

Try this with a copy of your workbook

Sub CopyAndSort()
  With Range("A1").CurrentRegion.Offset(, 10)
    .Value = .Offset(, -10).Value
    .Sort Key1:=.Columns(2), Order1:=xlAscending, Key2:=.Columns(1), Order2:=xlAscending, Key3:=.Columns(3), Order3:=xlAscending, Header:=xlYes
  End With
End Sub

 

[Mussa]

great ! it's short and quick answer
many thanks for your answering

 

[Peter_SSs]

You're welcome. Thanks for the follow-up.