جزاك الله خير أستاذ سليم أنا أخذت الكود اللي أنت بعثته سابقا وأعطيته لأحد الأخوة وقام بالتعديل عليه حسب اللي نحتاجه والأمور ضبطت ولله الحمد
Sub ahmed2()
Range("a9").Value = Range("i4").Value
Range("A10:B2001").ClearContents
Range("A9").Activate
For i = 1 To 2000
If ActiveCell.Value < Range("M4") Then
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
End Sub
وهذا الكود للفائدة للجميع