Excel VBA错误，原因未知

我想将一些单元格复制到其他工作簿中。它是excel中的VBA，运行时出现错误1004

Sub sortout()
ActiveSheet.Range("$A$3:$BD$336").AutoFilter Field:=7
Dim i As Integer
i = 4
Dim top As Integer
top = Range("A1048576").End(xlUp).Row + 1
While i < top
    If InStr(Cells(i, 7), "Daimler AG") = 0 Then
        Rows(i).EntireRow.Delete
        i = i - 1
        top = top - 1
    ElseIf InStr(Cells(i, 17), "MAJOR") = 0 Then
        If InStr(Cells(i, 17), "SIGNIFICANT") = 0 Then
            Rows(i).EntireRow.Delete
            i = i - 1
            top = top - 1
        End If
        'Rows(i).EntireRow.Delete
    End If
    i = i + 1
Wend
Rows(2).EntireRow.Delete
Range("A:G,I:O,R:V,Z:AA,AC:BD").Delete

Columns("C:C").Cut Destination:=Columns("H:H")
Columns("B:B").Cut Destination:=Columns("C:C")
Columns("H:H").Cut Destination:=Columns("B:B")
Range("C1").EntireColumn.Insert
Range("H1").EntireColumn.Insert
ChDir "C:\Users\antgal\Desktop"
    Workbooks.Open Filename:= _
        "C:\Users\antgal\Desktop\Reported_Changes_Daimler_CW27.xlsx"
    Windows("Copy of Minutes - Changes_ITO_QGATE_2016-07-06.xlsx").Activate
    Range("A3:I5").Select
    Selection.Copy
    Windows("Reported_Changes_Daimler_CW27.xlsx").Activate
    Range("B6:J7").Select
    ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

---

试试下面的。它会起作用的

注意：副本和目的地应相等。这就是问题所在

Workbooks("Copy of Minutes - Changes_ITO_QGATE_2016-07-06.xlsx").Sheets("Enter your sheet name to copy").Range("A3:I5").copy Workbooks("Reported_Changes_Daimler_CW27.xlsx").Sheets("Enter your sheet name to copy").Range("B6")

---

请将您的工作表名称替换为“输入要复制的工作表名称”

是否有任何与此错误相关的消息？1004没有帮助。可能是行号？您可以编辑您的问题并用正确的代码替换。运行时错误“1004”应用程序定义或对象定义错误//我所看到的是，它会遍历所有打开的工作簿，但不会复制任何内容：因此它必须在最后5行中…尝试调试代码并告诉我们，在哪一行出现错误是ActiveSheet。粘贴行尝试过，现在显示：运行时错误438：对象不支持此行的此属性或方法WindowsCopy of Minutes-Changes_ITO_QGATE_2016-07-06.xlsx.Activatech将Windows更改为工作簿，现在它在ActiveSheet.PasteYou忘记了。从结束，但如果我添加它，则返回相同的错误438对象不支持该行上的此属性或方法。该行不需要粘贴。你能通过dropbox发布你的excel吗？因此，我将修复代码中缺少的问题：ActiveSheet.Paste Destination:=Workbooks Reported\u Changes\u Daimler\u CW27.xlsx.Sheeto report.RangeB6:I7我已解决它！非常感谢。