طالب مدرسة أوفيسنا

شكرا لوقتك تم التعديل وعمل بهذا الكود ويحدث مباشره
Private Sub Worksheet_Change(ByVal Target As Range) Dim LR As Long LR = Cells(Rows.Count, "A").End(xlUp).Row - 9 If LR <= 0 Then LR = 1 With ورقة2     .Range("H1").Resize(10, 1).Value = Cells(LR, "A").Resize(10, 1).Value End With End Sub