Vba 将工作表中的所有值复制到另一工作表中的新行

我试图将一个工作表（“工作表1”）中的所有值复制到另一个工作表（“工作表2”）中的下一个空行

我认为代码出错是因为我选择复制所有值的方式

工作表（“工作表1”）。选择
粘贴行=板材（“板材2”）。范围（“A550000”）。结束（xlUp）。行+1
图纸（“图纸1”）。范围（“A1”）。选择
范围（选择，选择。结束（xlToRight））。选择
范围（选择，选择。结束（xlDown））。选择
选择，复制
工作表（“工作表2”）。范围（“A”和“粘贴行”）。粘贴特殊