Deleting cells with duplicate value using a loop

[mville]

This is what I want the macro doing :

• Find the last row with data for column A
• Then, compare the value in that cell with the value in the cell just above
• If the value is the same, delete the entire row of the highest cell
• If the value is not the same, get to the next cell i column A and repeat until cell A3

Any help on that?

Thanks

 

[Fluff]

How about

Sub DelCellsinLoop()

    Dim Cnt As Long
    
    For Cnt = Range("A" & Rows.Count).End(xlUp).Row To 4 Step -1
        If Range("A" & Cnt).Value = Range("A" & Cnt - 1).Value Then Rows(Cnt - 1).Delete
    Next Cnt
End Sub