ผมเคยทำได้แต่ให้มันขยับลงด้านล่าง ซึ่งผมเขียนใน Macro แล้วก็จะไป Edit แล้วก็เพิ่ม

Range("A"&Rows.count).End(xlup).offset(1,0).select
("A"&Rows.count) คือ เลือกเซล A ตาม Row ที่อยู่ล่าสุด
End(xlup) คือ ไปยังตำแหน่งเซลล่าสุดที่อยู่ด้านล่างสุด
offset(1,0) คือ ให้เลื่อนลงมา 1 ช่อง ตาม row โดยที่ column ไม่เลื่อน

ซึ่งจะทำให้ผมสามารถแอดข้อมูลลงด้านล่างได้เรื่อยๆ โดยที่ Macro ไม่เขียนทับสูตรนั้น

แต่คราวนี้ผมต้องการที่ะจให้เลื่อนไปด้านขวามือ โดยการแอดข้อมูลได้เรื่อยๆโดยที่ไม่เขียนทับข้อมูลเดิม

สูตรที่ผมใช้คือ Range("7" & Columns.Count).End(xlToRight).Offset(0, 1).Select

7 คือ แถวที่ 7 : ที่ผมต้องการให้ทำการบันทึกข้อมูลเริ่มตั้งแต่แถวที่ 7 ลงไป จนถึงแถวที่ 10
End(xlToRight) ต้องการให้ไปที่ข้อมูลที่อยู่ด้านขวาสุด
Offset(0, 1) คือ ให้ทำการถัดออกไป 1 ช่อง

คือตอนนี้สูตรผมก็ยังใช้การไม่ได้ รบกวนผู้รู้ช่วยชี้แนะด้วยนะครับ