[حل شده] حذف ردیف با دابل کلیک از طریق vba

[mahdie-ard]

با عرض سلام و وقت بخیر خدمت اساتید محترم و تشکر بابت کمکهای شما عزیزان:
در یک فایل اکسل که یک سری مشخصات وارد شده باشد از محدوده b3 تا j3 و ادامه دار هستش و همچنین b3 به پایین مختص شماره ردیف می باشد. اگر بخواهیم در ستون c زمانی که روی یک سلول دابل کلیک می کنیم با دادن پیغام بله یا خیر اون ردیف از b تا j حذف بشه و همچنین در یک شیت دیگر paste بشه البته . راه حلش چیه؟
در صورت امکان راهنمایی بفرمایید

[smartman]

فرض بر این است که قبل از حذف، رکورد انتخابی به Sheet2 منتقل شود

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 And Target.Row > 2 Then
Dim Response As VbMsgBoxResult
Response = MsgBox("Do you want to move this row to another worksheet?", vbQuestion + vbYesNo)
If Response = vbNo Then Exit Sub
Dim DestinationSheet As Worksheet
Set DestinationSheet = Worksheets("Sheet2")
Target.EntireRow.Copy DestinationSheet.Cells(DestinationSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
Target.EntireRow.Delete
End If
End Sub 

[mahdie-ard]

سلام تشکر بابت کمکتون. فقط می خوام همه ردیفهای پاک شده زیر هم در شیط دوم ذخیره بشود

[smartman]

دقیقا همین کار را انجام میدهد

[mahdie-ard]

سلا مجدد امتحان کردم زیر هم کپی نمیشه
به جای هم ریخته میشه