ต้องการเขียน Code Vba Macro คัดลอกตารางจากชืทหนึ่ง มาวางต่อท้ายอีกชืทหนึ่ง

[pakorn]

ขอสอบถามความรู้จากอาจารย์ทุกๆ ท่านครับ
จุดประสงค์ของผม คือต้องการเขียน Code Vba Macro คัดลอกตารางจากชืทหนึ่ง มาวางต่อท้ายอีกชืทหนึ่ง โดยมีเงื่อนไข คือ
กรณีตำแหน่งของ CELL อยู่ในตำแหน่งใดๆ ของ ROW หรือ COLUMN ของชีท "Sieve-Brown"
ถ้ามีการคลิกเมาส์ที่ปุ่ม "เพิ่มตารางใหม่" 1 ครั้ง ให้ COPY ตาราง Sieve_table ในชีท Sieve_table
มา paste ต่อท้ายตารางด่านล่าง ของชีท "Sieve-Brown" ทุกครั้ง
(ยกตัวอย่างคลิกเมาส์ที่ปุ่ม "เพิ่มตารางใหม่" 1 ครั้ง จะวางที่ตำแหน่ง A12 ถึง AJ21 คลิกต่อไป A22 ถึง AJ31 ต่อไปเลื่อยๆ )
ต้องปรับ/เขียน Code Vba อย่างไรครับ
ตัวอย่าง Code Macro

Sub Macro2xxxx()
'
' Macro2xxxx Macro
'
ActiveCell.Select
ActiveCell.SpecialCells(xlLastCell).Select
Range("AJ12").Select
Selection.End(xlToLeft).Select
Sheets("Sieve_table").Select
Selection.Copy
Sheets("Sieve-Brown").Select
ActiveSheet.Paste

End Sub

ตัวอย่างตามไฟล์แนบครับ
ขอบคุณครับ

[snasui]

ตัวอย่างการปรับ Macro ครับ

Code: Select all

Sub Macro2xxxx()
'
' Macro2xxxx Macro
'

'
'    ActiveCell.Select
'    ActiveCell.SpecialCells(xlLastCell).Select
'    Range("AJ12").Select
'    Selection.End(xlToLeft).Select
    Sheets("Sieve_table").Select
    Range("a2:aj10").Select
    Selection.Copy
    Sheets("Sieve-Brown").Select
    Range("d" & Rows.Count).End(xlUp).Select
    Selection.End(xlToLeft).Select
    Selection.Offset(1, 0).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

[pakorn]

ขอบคุณครับ