السلام عليكم
كيف يتم تعريف العامود بهذا الكود بدل من الرقم
عاوز احدد مثلا من a11:a100
وهذا الكود
Worksheet_SelectionChange(ByVal Target As Range)
LR = Sheets("ورقة1").Range("B7").End(xlDown).Row
Application.ScreenUpdating = False
For R = 1 To LR
Sheets("ورقة2").Cells(R, 1) = Sheets("ورقة1").Cells(R, 1)
Sheets("ورقة2").Cells(R, 2) = Sheets("ورقة1").Cells(R, 2)
Next
Application.ScreenUpdating = True
End Sub