Delete The Duplicates

I'm new to this and trying to write my own code (quit satisfying actually), I realise there's a lot of threads on duplicates but I couldn't really solve my problem. My code looks like the following



Private Sub Dubletter_Click()


Dim i As Long, lastrow As Long
Dim cell As range

For Each cell In Sheets("LR").range(Cells(3, 2), Cells(Rows.Count, 2))
lastrow = Cells(Rows.Count, 2).End(x1Up).Row
For i = lastrow To 3 Step -1
If Cells(r, 2).Value = cell Then
cell.EntireRow.Delete .....................