Cancellazione dei contenuti

Sto usando il seguente codice elencato di seguito. Funziona bene, ma cancella la formula in una delle mie celle. Come posso modificare questo codice per saltare una cella nel mio foglio?

Sub MoveRowBasedOnCellValue()
'Aggiornato da Extendoffice 2017/11/10
Dim xRg come intervallo
Dim xCell come intervallo
Dim I As Long
Dim J quanto a lungo
Dim K quanto a lungo
i = Fogli di lavoro("Dati").UsedRange.Rows.count
J = Fogli di lavoro("Completato").UsedRange.Rows.count
Se J = 1 Allora
Se Application.WorksheetFunction.CountA(Worksheets("Completed").UsedRange) = 0 Allora J = 0
End If
Imposta xRg = Fogli di lavoro ("Dati"). Intervallo ("A1: A" e i)
On Error Resume Next
Application.ScreenUpdating = False
Per K = 1 a xRg.count
Se CStr(xRg(K).Value) = "Completato", allora
xRg(K).EntireRow.Copy Destination:=Worksheets("Completed").Range("A" & J + 1)

xRg(K).EntireRow.ClearContents


J = J + 1
End If
Avanti
Application.ScreenUpdating = True
Colonne("A:A").Seleziona
ActiveWorkbook.Worksheets("Dati").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Data").Sort.SortFields.Add2 Chiave:=Intervallo("A3:A16") _
, Ordina:=xlSortOnValues, Ordine:=xlAscending, DataOption:=xlSortNormal
Con ActiveWorkbook.Worksheets ("Dati"). Ordina
.SetRange Range("A2:Q16")
.Intestazione = xlSì
.MatchCase = False
.Orientamento = xlTopToBottom
.Metodo di ordinamento = xlPinYin
.Applicare
Riferimento Application.Goto:=Fogli di lavoro("Dati").Range("A3")
Fine Con