Butuh bantuan dengan pengeditan kode Excel

Saya butuh bantuan! Saya mencoba membuat lembar kerja untuk membantu di tempat kerja kecuali saya tidak benar-benar melek komputer. Saya menggunakan kode yang ada yang ajaib kecuali untuk minggu kecil yang sepertinya tidak berhasil saya edit. Saya perlu memindahkan data dari pilihan pada Lembar 1 berdasarkan nilai ke Lembar 2. Saya perlu kode untuk menghapus dalam rentang tertentu dan bukan seluruh baris. Saya memiliki data lain di baris yang tidak ingin saya hapus. Saya telah menamai rentang pada Lembar 1 menjadi "RESTORASI" (=Sheet1!$A$15:$F$54) dengan harapan saya dapat memasukkan nama tersebut ke dalam kode. Saya tidak tahu bagaimana mengubah kode untuk memindahkan dan menghapus informasi dalam rentang bernama "RESTORASI". Ini adalah kode asli yang perlu saya edit:

Sub

Cheezy()

'Updated by Kutools for Excel 2017/8/28

Dim

xRg 

As

Range

Dim

xCell 

As

Range

Dim

I 

As

Long

Dim

J 

As

Long

Dim

K 

As

Long

I = Worksheets(

"Sheet1"

).UsedRange.Rows.Count

J = Worksheets(

"Sheet2"

).UsedRange.Rows.Count

If

J = 1 

Then

If

Application.WorksheetFunction.CountA(Worksheets(

"Sheet2"

).UsedRange) = 0 

Then

J = 0

End

If

Set

xRg = Worksheets(

"Sheet1"

).Range(

"C1:C"

& I)

On

Error

Resume

Next

Application.ScreenUpdating = 

False

For

K = 1 

To

xRg.Count

If

CStr

(xRg(K).Value) = 

"Done"

Then

xRg(K).EntireRow.Copy Destination:=Worksheets(

"Sheet2"

).Range(

"A"

& J + 1)

xRg(K).EntireRow.Delete

If

CStr

(xRg(K).Value) = 

"Done"

Then

K = K - 1

End

If

J = J + 1

End

If

Next

Application.ScreenUpdating = 

True

End

Sub