filter data from old date to last date based on duplicates items

[Mussa]

Hello
I have duplicates items in column B . what I want filter data from old date to last date based on date in column A for each duplicates item in column B
the date will be MM/DD/YYYY
the original data

df.xlsm
	A	B	C	D	E	F	G	H	I	J
1	DATE	CODE	INV-N.O	CLIENT-N.O	BRAND	TYPE	ORGIN	QTY	PRICE	TOTAL
2	04/01/2023	A02	BlS1/12-021	CC-MMSN1/12	AC-AD1	AA-100	TTY1	10	140	1400
3	04/05/2021	A03	BlS1/12-022	CC-MMSN1/13	AC-AD2	AA-101	TTY2	12	200	2400
4	04/23/2021	A04	BlS1/12-023	CC-MMSN1/14	AC-AD3	AA-102	TTY3	16	130	2080
5	04/04/2021	A02	BlS1/12-024	CC-MMSN1/15	AC-AD1	AA-100	TTY1	10	146	1460
6	06/14/2021	A03	BlS1/12-025	CC-MMSN1/16	AC-AD2	AA-101	TTY2	12	200	2400
7	04/13/2021	A02	BlS1/12-026	CC-MMSN1/17	AC-AD3	AA-102	TTY3	16	144	2304
sh1

Cell Formulas
Range	Formula
J2:J7	J2	=I2*H2

what I want it

df.xlsm
	A	B	C	D	E	F	G	H	I	J
1	DATE	CODE	INV-N.O	CLIENT-N.O	BRAND	TYPE	ORGIN	QTY	PRICE	TOTAL
2	04/04/2021	A02	BlS1/12-024	CC-MMSN1/15	AC-AD1	AA-100	TTY1	10	146	1460
3	04/13/2021	A02	BlS1/12-026	CC-MMSN1/17	AC-AD3	AA-102	TTY3	16	144	2304
4	04/01/2023	A02	BlS1/12-021	CC-MMSN1/12	AC-AD1	AA-100	TTY1	10	140	1400
5	04/05/2021	A03	BlS1/12-022	CC-MMSN1/13	AC-AD2	AA-101	TTY2	12	200	2400
6	06/14/2021	A03	BlS1/12-025	CC-MMSN1/16	AC-AD2	AA-101	TTY2	12	200	2400
7	04/23/2021	A04	BlS1/12-023	CC-MMSN1/14	AC-AD3	AA-102	TTY3	16	130	2080
sh1

Cell Formulas
Range	Formula
J2:J7	J2	=I2*H2

my real data about 6700 rows .
thanks

 

[Mussa]

yes your formula work as you guided me, but based on OP should filter the whole range , and your formula just gave me date and the code without the others columns , should populate the whole row for each duplicates item.

 

[kevin9999]

You keep mentioning filter, but you seem to want a simple sort on 2 columns? If that's the case, try the following:

Option Explicit
Sub Mussa()
    Dim ws As Worksheet
    Set ws = Worksheets("sh1")      '<~~ *** Change to actual sheet name ***
    ws.Range("A1").CurrentRegion.Sort Key1:=ws.Range("B1"), order1:=xlAscending, _
    Key2:=ws.Range("A1"), order2:=xlAscending, Header:=xlYes
End Sub

Before:

Book1
	A	B	C	D	E	F	G	H	I	J
1	DATE	CODE	INV-N.O	CLIENT-N.O	BRAND	TYPE	ORGIN	QTY	PRICE	TOTAL
2	04/01/2023	A02	BlS1/12-021	CC-MMSN1/12	AC-AD1	AA-100	TTY1	10	140	1400
3	04/05/2021	A03	BlS1/12-022	CC-MMSN1/13	AC-AD2	AA-101	TTY2	12	200	2400
4	04/23/2021	A04	BlS1/12-023	CC-MMSN1/14	AC-AD3	AA-102	TTY3	16	130	2080
5	04/04/2021	A02	BlS1/12-024	CC-MMSN1/15	AC-AD1	AA-100	TTY1	10	146	1460
6	06/14/2021	A03	BlS1/12-025	CC-MMSN1/16	AC-AD2	AA-101	TTY2	12	200	2400
7	04/13/2021	A02	BlS1/12-026	CC-MMSN1/17	AC-AD3	AA-102	TTY3	16	144	2304
sh1

Cell Formulas
Range	Formula
J2:J7	J2	=I2*H2

After:

Book1
	A	B	C	D	E	F	G	H	I	J
1	DATE	CODE	INV-N.O	CLIENT-N.O	BRAND	TYPE	ORGIN	QTY	PRICE	TOTAL
2	04/04/2021	A02	BlS1/12-024	CC-MMSN1/15	AC-AD1	AA-100	TTY1	10	146	1460
3	04/13/2021	A02	BlS1/12-026	CC-MMSN1/17	AC-AD3	AA-102	TTY3	16	144	2304
4	04/01/2023	A02	BlS1/12-021	CC-MMSN1/12	AC-AD1	AA-100	TTY1	10	140	1400
5	04/05/2021	A03	BlS1/12-022	CC-MMSN1/13	AC-AD2	AA-101	TTY2	12	200	2400
6	06/14/2021	A03	BlS1/12-025	CC-MMSN1/16	AC-AD2	AA-101	TTY2	12	200	2400
7	04/23/2021	A04	BlS1/12-023	CC-MMSN1/14	AC-AD3	AA-102	TTY3	16	130	2080
sh1

Cell Formulas
Range	Formula
J2:J7	J2	=I2*H2

 

[Mussa]

great !
indeed I don't expect little lines could achieve it .I expect need writing many lines for the code.

but you seem to want a simple sort on 2 columns?

I don't know what the difference filter and sort !
but will give same result , the only different is way of writing the code that what I think
anyway thank you so much for your help.

 

[kevin9999]

great !
indeed I don't expect little lines could achieve it .I expect need writing many lines for the code.

I don't know what the difference filter and sort !
but will give same result , the only different is way of writing the code that what I think
anyway thank you so much for your help.

Glad we could help Mussa, and thanks for the feedback