Remove duplicate by selected

[Sefty]

Hello,
i need help, how to delete duplicates, and only select the last data. For example, if there are 3 data that are the same, then only the third data is taken
data that needs to be deleted per row, duplicates based on column B but need to delete all rows and only leave 1 last row.
Thanks

Book1
	A	B	C	D	E	F
1		Before
2		Hari	A	b	c
3		Sunday	a	a	b
4		Sunday	f	g	jj
5		Sunday	1	2	jj
6		Monday	4	5	7
7		Monday	9	0	1
8		Friday	1	2	5
9		Friday	1	4	6
10
11
12		After
13		Hari	A	b	c
14		Sunday	1	2	jj
15		Monday	9	0	1
16		Friday	1	4	6
17
Sheet1

Cells with Conditional Formatting
Cell	Condition		Cell Format	Stop If True
B3:B9,B12	Cell Value	duplicates	text	NO
B14:B16	Cell Value	duplicates	text	NO

 

[Legacy 143009]

One other comment about your codes: I note that you have declared lRow as long but left i undeclared (& therefore Variant). I would recommend declaring all variables (& forcing yourself to do so with the 'Require Variable Declaration' setting in the vba Options).

That's my worst habbit :/