Hi Arno, Try this:

Sub delMatchedRows()
Dim lr As Long, x As Long
Dim c As Range
lr = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = lr To 2 Step -1
For Each c In Rows(i).Cells
If c.Value < c.Offset(-1, 0).Value Then
x = x + 1
End If
Next
If x = 0 Then
Rows(i).Delete
End If
x = 0
Next
End Sub

"Arno" wrote:

Hi Mike,

the entire row above - Thanks

"Mike H" wrote:

Hi,

There almost certainly is but you need to be more specific. What do you want
to compare? the entire row i.e. every cell or just 1 cell with the row above/

Mike

"Arno" wrote:

Hello,

Is there a way to delete a rows that contain the same text/element as the
one above?

Many thanks

Arno