Help with loop macro, find next

[JoGee]

Hi there,
I seem to need a little help with my loop. values and rows will change. I'm looking at values in column A, if the value is the same as the value below (A2 - A3) delete A2, if it is diferent then move to the cell below.

this is my code
Dim rCell as Range
Set Rngy = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
For Each rCell In Rngy
If rCell.Value = rCell.Offset(1, 0).Value Then
rCell.EntireRow.Delete
ElseIf rCell.Value <> rCell.Offset(1, 0).Value Then
rCell.Offset(1, 0).Select

End If

Next

for some reason it only does the first line and then stops - what am I missing.

thanks in advance.

 

[ranman256]

you cant move down the row , deleting rows as you go.
you must move up, then you can delete a row and not affect the count.

for rows = rows.count to 1 step -1
if value then delete row.
next

 

[JoGee]

Ranman,

thank you for your input, it completely slipped my mind to start at the bottom and now I'm completely upsidedown with my code. Any suggestions would help.

Sample sheet below

I need the most recend date (Column B) in each group (column A) so is it better to sort each goup with the date ascending or descending, starting at the bottom and deleting.