複数のセルの内容をクリアする方法はありますが、セルの背景/フォントのプロパティを変更しませんか?
現在Range("X").Cells.Clear
を使用していますが、背景色が削除されているため、クリアごとに「再描画」する必要はありません。
コンテンツを消去するがフォーマットを保持する場合は、 ClearContents メソッドを使用する必要があります。
Worksheets("Sheet1").Range("A1:G37").ClearContents
ClearContents を使用できます。例、
Range("X").Cells.ClearContents