پرسش تکرار کردن متن داخل سلول

[ms2125]

سلام اساتید محترم
یه سوال داشتم من میخوام موقع اینکه ماکرو فعال میکنم و فرم فعال میشه یه کد باشه که عدد داخل چند سلول مشخص رو پاک کنه یا یک عددی خاص مثلا یک رو داخل سلول ها کپی کنه و دوباره همون اعداد اول رو برگردونه سر جاشون

البته شاید بی معنی باشه ولی برای یک منظور که بنده دارم موثر هست ممنون

[mostafa1202]

سلام
امیدوارم درست متوجه سوالتون شده باشم

Sheet1.Range("a1:a4").Select
Selection.Cut
Sheet1.Range("a1").Select
ActiveSheet.Paste