كيف يتم تصليح هذا الكود

[رامي قلعجية]

السلام عليكم

كيف يتم تعريف العامود بهذا الكود بدل من الرقم 

عاوز احدد مثلا من 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
 

[سليم حاصبيا]

بكل بساطة

Sub select_My_range()
Range("A11:A100").Select
End Sub