بحاجة الى مساعدة في تحرير اكسل كود

انا بحاجة الى مساعدة! أحاول إنشاء ورقة عمل للمساعدة في العمل باستثناء أنني لست متعلماً بالكمبيوتر. لقد استخدمت رمزًا سحريًا موجودًا باستثناء فترة قصيرة لا يمكنني تحريرها بنجاح. أحتاج إلى نقل البيانات من التحديد في الورقة 1 بناءً على قيمة إلى الورقة 2. أحتاج إلى حذف الرمز ضمن نطاق معين وليس الصف بأكمله. لدي بيانات أخرى في الصف لا أريد حذفها. لقد قمت بتسمية النطاق على الورقة 1 بـ "RESTORATION" (= Sheet1! $ A $ 15: $ F $ 54) على أمل أن أتمكن من دمج الاسم في الكود. لا أعرف كيفية تغيير الرمز لنقل المعلومات وحذفها ضمن النطاق المسمى "RESTORATION". هذا هو الكود الأصلي الذي أحتاج إلى تعديله:

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