コンテンツのクリア

以下のコードを使用しています。 正常に動作しますが、セルのXNUMXつにある数式が消去されます。 シートのXNUMXつのセルをスキップするようにこのコードを変更するにはどうすればよいですか？

Sub MoveRowBasedOnCellValue（）
'によって更新されました Extendoffice 2017/11/10
範囲としての薄暗いxRg
xCellAsRangeを暗くする
ディム・アイ・アス・ロング
ディム J アズ ロング
ディム K アズ ロング
i = Worksheets（ "Data"）。UsedRange.Rows.count
J = Worksheets（ "Completed"）。UsedRange.Rows.count
J=1の場合
Application.WorksheetFunction.CountA（Worksheets（ "Completed"）。UsedRange）=0の場合J= 0
終了する場合
xRg = Worksheets（ "Data"）。Range（ "A1：A"＆i）を設定します
エラーで次の再開
Application.ScreenUpdating = False
K=1の場合xRg.countへ
If CStr（xRg（K）.Value）= "Completed" Then
xRg（K）.EntireRow.Copy Destination：= Worksheets（ "Completed"）。Range（ "A"＆J + 1）

xRg（K）.EntireRow.ClearContents


J = J + 1
終了する場合
Next
Application.ScreenUpdating = True
Columns（ "A：A"）。Select
ActiveWorkbook.Worksheets（ "Data"）。Sort.SortFields.Clear
ActiveWorkbook.Worksheets（ "Data"）。Sort.SortFields.Add2 Key：= Range（ "A3：A16"）_
、SortOn：= xlSortOnValues、Order：= xlAscending、DataOption：= xlSortNormal
ActiveWorkbook.Worksheets（ "Data"）。Sortを使用
.SetRange Range（ "A2：Q16"）
.Header = xlはい
.MatchCase = False
.Orientation = xl上から下へ
.SortMethod = xlPinying
。申し込み
Application.Goto Reference：= Worksheets（ "Data"）。Range（ "A3"）
最後に