มีปัญหาเกี่ยวกับการเลื่อนข้อมูลครับ

[nutpochan]

ปัญหาของผมคือ ข้อมูลวันที่ 1 กับข้อมูลวันที่ 2 มีจำนวนคอลัมไม่เหมือนกัน ข้อมูลวันที่ 2 มีมากกว่าข้อมูลวันแรกครับ

ข้อมูลจะมีในช่วง A1 ถึง A7 ผมต้องการเลื่อนจาก A1 ถึง A7 เป็น A2 ถึง A8 เหมือนในไฟล์แนบ ผมจึงใช้โคด

Sub Macro2()

Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Cut Destination:=Range("A2:A8")
Range("A2:A8").Select
End Sub

แต่ปัญหาก็คือ จำนวนคอลัมไม่เหมือนกันทุกวันเหมือนในวันแรก แต่ผมต้องใช้โคดเดิมคือ

Sub Macro2()

Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Cut Destination:=Range("A2:A8")
Range("A2:A8").Select
End Sub

ซึ่งวีนที่ 2 ผมอยากเลื่อนให้มาอยู่ใน A2 ถึง A12 โดยไม่ต้องเปลี่ยนโคดไปทุกๆวัน
ครับข้อความสีแดงมันจะเป็น debug ผมเลยจะถามว่า จะใช้โคดยังไงให้ มันเลื่อนลงมา แม้จะมีข้อมูลไม่เท่ากันทุกวัน แล้วไม่ debug ครับ

[snasui]

ลองเปลี่ยนจาก Selection.Cut Destination:=Range("A2:A8") เป็น Selection.Cut Destination:=Range("A2")

สำหรับการโพสต์ Code ให้แสดงเป็น Code ดูตัวอย่างได้ที่นี่ viewtopic.php?f=3&t=1187 เพื่อสะดวกต่อการอ่านและ Copy ไปทดสอบครับ

[nutpochan]

นำไปใช้ได้ผลแล้วครับ