السلام عليكم ورحمة الله
أخي الكريم حسام، جرب الكود التالي في حدث الورقة 1:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
LRow1 = Sheets("æÑÞÉ1").Range("A65000").End(xlUp).Row
LRow2 = Sheets("æÑÞÉ2").Range("A65000").End(xlUp).Row + 1
If Not Intersect(Target, Range("A2:A" & LRow1)) Is Nothing Then
With Sheets("æÑÞÉ1")
.Range(.Cells(Target.Row, 1), .Cells(Target.Row, 2)).Copy Sheets("æÑÞÉ2").Range("A" & LRow2)
End With
End If
End Sub
العبارة "æÑÞÉ" في الكود معناه "ورقة"
وقد تم تطبيقه على ملفك في المرفق: hosam.rar
أخوك بن علية