Eliminar celdas alternas cuando otra celda está duplicada

Pero en qué momento quieres que se haga el borrado, ¿quieres presionar un botón y que en ese momento haga la comparación y lo duplicado que lo borre?, o prefieres, que cuando captures algo en la columna Z, ¿lo qué capturaste lo compare con todas las celdas de la columna Z y si encuentra el duplicado entonces que borre?

Cuando se presione un botón.

Gracias Dam

Sigue las Instrucciones para un botón y ejecutar la macro
1. Abre tu libro de Excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Ahora para crear un botón, puedes hacer lo siguiente:
6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona Asignar macro / Selecciona: borra_dup
9. Aceptar.
10. Para ejecutarla dale click a la imagen.

Sub borra_dup()
'Por.DAM
For i = 1 To Range("Z" & Rows.Count).End(xlUp).Row
    For j = i + 1 To Range("Z" & Rows.Count).End(xlUp).Row
        If Cells(i, "Z") = Cells(j, "Z") Then
            Range("AZ" & j & ",BA" & j & ",BB" & j & ",BE" & j).ClearContents
        End If
    Next
Next
End Sub

Prueba y me comentas

Saludos. Dam
Si es lo que necesitas.

Me da error en la linea

Range("AZ" & j & ",BA" & j & ",BB" & j & ",BE" & j).ClearContents
y me invita a depurar o parar

Saludos

¿Y qué mensaje de error dice la ventana que te invita a depurar?

¿Tienes celdas combinadas?

Si tienes celdas combinadas, utiliza esta macro

Sub borra_dup()
'Por.DAM
For i = 1 To Range("AZ" & Rows.Count).End(xlUp).Row
    For j = i + 1 To Range("AZ" & Rows.Count).End(xlUp).Row
        If Cells(i, "Z") = Cells(j, "Z") Then
            Range("AZ" & j & ",BA" & j & ",BB" & j & ",BE" & j).Select
            Selection.ClearContents
        End If
    Next
Next
End Sub

Se queda bloqueado en un bucle sin terminar

saludos Dam