code to find rows with same value in column C:F and delete the rows

[bezbid]

What is the code to delete multiple rows if the cell in C:F column has same value, as in the file attached, thanks for any help

[Mumps1]

Try:

Sub DeleteRows()
    Application.ScreenUpdating = False
    Dim LastRow As Long
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Dim x As Long
    For x = LastRow To 1 Step -1
        If WorksheetFunction.CountIf(Range("C" & x & ":F" & x), Cells(x, "C").Value) = 4 Then
            Rows(x).EntireRow.Delete
        End If
    Next x
    Application.ScreenUpdating = True
End Sub

[bezbid]

Thanks Mumps1

[Mumps1]

You are very welcome.