What is the code you would use to go down a column (starting at cell A7) and
delete 3 rows below the active cell when the next cell is different than the
active cell. The loop can/should stop whenever the statement above is true
(next cell < current cell).

I was able to make it work with a for...next loop, but I think there has to
be a better loop, probably a Do...Loop. I tried for hours to use a Do..loop
but I couldn't get out of the loop when the condition was met... Just
curious...Thank you.

A loop is a loop is a loop. I would use a for/next. Post YOUR code for
comments.

Sub deleterowsif()
For i = Cells(Rows.Count, "a").End(xlUp).Row To 8 Step -1
MsgBox Cells(i, 1)
If Cells(i - 1, 1) < Cells(i, 1) Then Cells(i,
1).Resize(3).EntireRow.Delete
Next i
End Sub
or
Sub deleterowsif()
For i = Cells(Rows.Count, "a").End(xlUp).Row To 12 Step -1
MsgBox Cells(i, 1)
If Cells(i+1, 1) < Cells(i, 1) Then Cells(i+1,
1).Resize(3).EntireRow.Delete
Next i
End Sub


--
Don Guillett
SalesAid Software

"Filo" wrote in message
...
What is the code you would use to go down a column (starting at cell A7)
and
delete 3 rows below the active cell when the next cell is different than
the
active cell. The loop can/should stop whenever the statement above is true
(next cell < current cell).

I was able to make it work with a for...next loop, but I think there has
to
be a better loop, probably a Do...Loop. I tried for hours to use a
Do..loop
but I couldn't get out of the loop when the condition was met... Just
curious...Thank you.