ثبت داده*هایی که با استفاده از 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