VBA代码求助-复制黏贴不覆盖原来资料

本人菜鸟   想写个VBA程式 主要事想从一个工作薄下的几个工作表中复制制定列资料放置到另外一个制定的工作薄  但是由于是要保存好几天的数据(每天资料不一样),故要求之前保存的资料不能被替代,请大神指教下。

如:

从资料:Stock Report 20210523 -(W101工作表) 复制A列所有内容  黏贴到report(制定工作薄)-sheet1 A列 (说明下,sheet1有之前保存的一些数据,黏贴的资料不能把原来的资料覆盖掉  就是说不能从A1开始选择黏贴范围)

rownum = Sheets("sheet1").Range("A65536").End(xlUp).row'找到sheet1中A列有数据的行,让后从这个数据行后开始写入数据