方法'Paste'作用于对象'_Worksheet'时失败

maoxiong2008

Sub dy()
    Dim a As Integer '总行数
    Dim b As Integer '空的行数
    Dim c As Integer '有数据的行数

    a = Sheet1.UsedRange.Rows.Count
    For i = 1 To a
    If Cells(i, 1) = "" Then b = b + 1
    Next i
    c = a - b
   
    Sheets("打印").Select
    Range("F3").Select
    ActiveCell.FormulaR1C1 = "=计算!RC[5]"
    Sheets("计算").Select
    Rows("3:3").Select
    Selection.Cut
    e = c + 1
    ActiveSheet.Cells(e, Selection.Column).Select
    ActiveSheet.Paste
    Rows("3:3").Select
    Selection.Delete Shift:=xlUp
    Sheets("打印").Select
End Sub

在自己机器上运行正常.可怎么在别人机器上就报错,提示ActiveSheet.Paste有错

报运行时错误'-2147417848(80010108)':方法'Paste'作用于对象'_Worksheet'时失败.

lenghonghai

有问题的附件传上来。
要先将工作表压缩，然后才能上传。