求助：将一个表格中制定列数据复制到新标中的指定列。

471121436

Sub test()
Dim s, t
Dim i As Integer
Dim rs As Integer
s = Array(1, 3, 4, 6, 8)
t = Array(1, 2, 3, 4, 5)
Sheets("导出").Select
With Sheets("汇总")
For i = 0 To UBound(s)
rs = .Cells(65536, s(i)).End(xlUp).Row - 1
Cells(65536, t(i)).End(xlUp).Offset(0, 0).Resize(rs, 1).Value = .Cells(1, s(i)).Resize(rs, 1).Value
Next
End With
End Sub
运行时提示1004错误，不知道错在什么地方，求大神给予纠正，万分感谢。