الاخ الكريم
فكرة ايضا توصلت لها بخصوص موضوعك
بكود بسيط ولكنه يحتاج لبعض التعديل
ما رأيك فيه ... هل يتناسب مع طلبك
Sub sama()
LastCol = Range("iv1").End(xlToLeft).Column + 1
Cells(1, LastCol).Value = [a1].Value
Application.CutCopyMode = False
[a1].Select
End Sub
جزاك الله خيرا
في انتظار ردك .... وجرب الملف المرفق .. قم بالكتابة في الخلية a1 ثم اضغط علي الزر وشاهد النتيجة
ثم قم بالكتابة مرة اخري في الخلية a1 واضغط علي الزر وشاهد النتيجة
Book1.rar