关于跨表复制黏贴，麻烦各位大神帮忙指导下

灵开宇

各位大神，代码如下:
Sub 跨表复制黏贴()

Dim tt, ss, n
On Error Resume Next
Application.ScreenUpdating = False
Set tt = Workbooks.Open(ThisWorkbook.Path & "\" & "a" & ".xlsx")
Set ss = Workbooks.Open(ThisWorkbook.Path & "\" & "导出模版-凭证" & ".xlsx")
x = Worksheets("凭证导入模板").Range("A65536").End(xlUp).Row
For i = 1 To x + 1
If Worksheets("凭证导入模板").Range("b" & i) = "" Then
Range("b2:a" & i).Select
End If
Selection.Copy
Next
ss.Worksheets("导出模板-凭证").Activate
Cells(n, 1).Select
ActiveSheet.Paste
n = n + 1
Application.ScreenUpdating = True
End Sub
想要从a工作簿的“凭证导入模板”工作表中复制b列数据到“导出模板－凭证”工作簿中"导出模板－凭证"工作表中的a列。但是运行代码之后只会复制导出模板－凭证这张工作表的a1.a2两个单元格的数据，不会执行黏贴操作。麻烦各位大神帮忙看看这个代码哪里有问题

灵开宇

这是附件，麻烦各位帮忙看下