Excel: código VBA para eliminar datos en la fila mientras se mantienen las fórmulas

Problema

Estoy trabajando en una hoja de cálculo en la que tengo que copiar datos en una hoja nueva. Una vez que se copian los datos, quiero eliminar los datos de la hoja de la hoja original, sin perder las fórmulas. ¿Cómo se puede implementar esto en VBA?

Solución

Una vez que haya implementado el código a continuación, seleccione una celda de la fila de la cual desea mantener la fórmula y ejecute el código.

 Sub KeepFormulas () Dim sRow, lCol As Integer sRow = ActiveCell.Row lCol = Cells (sRow, Columns.Count) .End (xlToLeft) .Column For cada celda In Range (Cells (sRow, 1), Cells (sRow, lColol )) Si cell.HasFormula = False Then cell.ClearContents Next cell End Sub 

Gracias a MSL por este consejo.