Sub borrar()
Range("A:D").ClearContents
End Sub
En éste caso se borrarán los contenidos del rango completo A hasta D, esto se puede hacer específico para una sola celda que se necesite borrar con regularidad, para un contenido mas extenso o para filas y columnas completas, por ejemplo podemos tomar el rango A2:D5 para borrarlo de la siguiente manera: