类range的PasteSpecial方法无效是什么原因？

我想把当前工作表里面AM70:AS88里面的数据复制到工作表“考勤汇总”里面，然后在里面按顺序一直排下去。写了下面一些代码，运行时出现类range的PasteSpecial方法无效是什么原因？
请哪位高手告诉我一下，下面的代码是哪里有问题了呢？
Range("AM70:AS88").Select
    Selection.Copy
    Workbooks.Open ("E:\参考资料\vba学习\考勤汇总.xlsx")
    Windows("考勤汇总.xlsx").Activate
    ActiveSheet.Cells.Select
    Range("a:a").Find(Null, , , 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False