Sebastian
i = 2
While wks.Cells(i, 1) ""
If wks.Cells(i, 1) wks.Cells(i + 1, 1) Then
wks.Rows(i).Delete
ElseIf wks.Cells(i, 2) wks.Cells(i + 1, 2) Then
wks.Rows(i).Delete
Else
While wks.Cells(i, 1) = wks.Cells(i + 1, 1) And wks.Cells(i, 2) = wks.Cells(i + 1, 2)
wks.Rows(i + 1).Delete
Wend
i = i + 1
End If
Wend