Macro que borra diplicados

Hola ayúdenme a modificar esta macro, para que solo borre el contenido de las celda y que no elimine toda la fila,,,
Sub BORRAR()
x = ActiveCell.Row
z = ActiveCell.Column
y = x + 1
Do While Range(x, z).Value <> ""
Do While Cells(y, z) <> ""
If (Cells(x, z).Value = Cells(y, z).Value) Then
Cells(y, z).EntireRow.Clear
Else
y = y + 1
End If
Loop
x = x + 1
y = x + 1
Loop
End Sub