Función suprimir en lugar de eliminar linea

Hola a todos,
Tengo un formulario el cual tiene una función con este código que es la de eliminar fila:
Private Sub Eliminar_Click()
Dim x
x = MsgBox(" Acabas de pulsar el botón de eliminar" & Chr(10) & _
"¿Estás seguro de querer eliminar el registro ?", vbYesNo, "Control de eliminación")
If x = vbNo Then Exit Sub
Application.ScreenUpdating = False
If R.ListIndex <> -1 Then
x = R.ListIndex + 7
R.RowSource = ""
ActiveSheet.Rows(x).Delete
Aviso = "Eliminada fila " & x
ActualizarLista
R.ListIndex = x - 8
Else
MsgBox "Debes elegir un registro de la lista" & Chr(10), vbCritical, "Control de eliminación"
End If
End Sub
No entiendo mucho de visual basic y em gustaría saber si cambiando algo de esto podría suprimir el contenido de la fila en vez de eliminar la fila entera. Esto lo quiero hacer ya que tengo celdas que me hacen referencia a esas filas y si las elimino pierden la referencia en cambio, si borro su contenido, las celdas siguen haciendo referencia a las celdas de esa fila pudiendo así introducir nuevos datos sin tener que tocar la celda que toma referencias.
Espero me puedan ayudar.Un saludo cracks.
Atentamente,
Francisco