last_row=Workbooks('dest_workbook_name').Sheets(1).UsedRange.Rows.Count
Workbooks('dest_workbook_name').Sheets(1).range("K" & last_row+1).Select
'copy自己寫
Workbooks('dest_workbook_name').Sheets(1).Paste