Excel - Eliminar ciertas celdas de la fila activa

Problema

Me gustaría un código para lo siguiente:

Verifique qué fila está activa / seleccionada y luego elimine los datos que se encuentran en las columnas 5 y 7 de esa fila.

He intentado lo siguiente:

 Subprueba () r = ActiveCell.Row Range (r, 5) .ClearContents Range (r, 7) .ClearContents End Sub

¿Alguien me puede ayudar con esto?

Tratar:

 células (r, 5) y células (r, 7)

Gracias a venka1926 por este consejo en el foro.