将单元格值复制到不同工作表

Question

我试图将单元格的值复制到不同工作表中的范围，并且我得到了应用程序定义或对象定义的错误。我使用变量来引用细胞。以下是我的代码。这是一个子查询，其中＆＃34; Z＆＃34;从网站提取数据后更改。

z = Worksheets("sheet2").Cells(Rows.Count, "T").End(xlUp).Row
a = z
x = 1 To y       
y = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row

Sheets("Sheet1").Range(x & 1).Select
Selection.Copy
Sheets("Sheet2").Range("S" & a).Select
Range(Cells(a, 19), Cells(z, 19)).Select
Selection.FillDown