Application.ScreenUpdating = False
For i = Range("A65535").End(xlUp).Row To 2 Step -1
If Application.WorksheetFunction.CountIf(Range("A:A"), Cells(i, 1)) = 1 Then
If Cells(i, 5) = "O" Or Cells(i, 5) = "/N" Then
Rows(i).Delete
GoTo fin
End If
If Cells(i, 2) = "" Or Cells(i, 2) = "--" Or Cells(i, 2) = "---" Or Cells(i, 2) = "/" Then Cells(i, 2) = "-"
If Cells(i, 4) = "" Or Cells(i, 4) = "--" Or Cells(i, 4) = "---" Or Cells(i, 4) = "/" Then Cells(i, 4) = "-"
Cells(i, 10) = "/" & Cells(i, 4) & "-" & Cells(i, 2) & "-" & Cells(i, 6) & ".html"
Else
Rows(i).Delete
End If
fin:
Next i
Application.ScreenUpdating = True