ثبت داده*هایی که با استفاده از scroll تغیر میکنند در یک رنج

[msoori]

با سلام و خدا قوت
دوستان فایلی رو بارگزاری کردم، میخوام با عوض کردن مقدار سلول محتوای سلول در هر مرحله در جایی دیگر(در یک رنج) ذخیره شود
مثلا اگر 30 تا عدد داخل سلول هست با عوض کردن محتوای سلول اینها برام تو یک رنج لیست بشه نمیخوام تو هر مرحله کپی پیست کنم
ممنونم

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[mokaram]

از کد زیر استفاده کنید ( امیدوارم منظورتونا درست متوجه شده باشم )

Sub Spinner1_Change()
Dim c As Range
For Each c In Sheet1.Range("e1:e1000")
    If c = "" Then
        c = Sheet1.Range("a1")
        Exit Sub
    End If
Next c
End Sub