پرسش قفل کردن سطر بعد از بررسی خالی نبودن سلول

[poa]

با سلام من یک کد ماکرو نوشتم که تو این کدمیخوام اول قفل شیت باز شده سپس تغیرات از یک شیت دیگر کپی شده و در ان شیت قرار گیرد اگر سلول جی 2 مربوط به این ردیف پر بود اون ردیف مورد نظر قفل بشه چه تغیراتی باید انجام بدم وچه دستوراتنی اضافیه ممنون از دوستان

Sub Macro7()'' Macro7 Macro'
' Dim inp As Worksheet
 Dim iup As Worksheet  
  For Each inp In ActiveWorkbook.Worksheets   
 For Each iup In ActiveWorkbook.Worksheets   
 iup.Unprotect "123"  
  Next    
ActiveSheet.Unprotect    
Sheets("feedback").Select   
 Range("J2").Select 
   Range(Selection, Selection.End(xlDown)).Select  
  Selection.Copy    
Sheets("note").Select   
 Range("J2").Select   
 Range(Selection, Selection.End(xlDown)).Select   
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _        
:=False, Transpose:=False 
   Range("A2:H2").Select   
 Range("H2").Activate  
  Application.CutCopyMode = False   
 Selection.Locked = True    Selection.FormulaHidden = False  
  inp.Protect "123"    
Next   
 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub 

این قسمت برای تست نوشتم و خوب بعد از کپی کردن سطر مورد نظر را قفل کرد در واقع کارکردش درست بود مشکل تو یه شرط if و انتخاب محدوده مربوط به سری هست که سلول J2 همون سر پر شده است یعنی من میخوام این دستور برای سطر مورد نظر اعمال بشه هر سطری که J2 پر شده البته محدودیتی همدارم اینه که در حالت اول شیت مورد نظر من محافظت شده است

[hadi1980]

سلام
اگر هنوز جواب سوالتان را نگرفتيد فايل بزاريد تا بشه دقيق راهنمايتون کنيم