vba 1004 应用程序定义或对象定义错误，大神帮忙看下

㊣二⑧经◇旭

请哪位大神看看，老是显示vba 1004 应用程序定义或对象定义错误，但是该代码用在另外一个excel中 又没问题



Option Explicit

Sub 产品明细()
    Dim ar, br(), m&, n&, k&, q&, p&, i&
    ar = Worksheets("预算").UsedRange.Offset(5, 1)
    For m = LBound(ar, 1) To UBound(ar, 1)
        If ar(m, 6) > 0 Then
            n = n + 1
            ReDim Preserve br(1 To 10, 1 To n)
            For k = 1 To 10
            If k <> 4 Then
                br(k, n) = ar(m, k)
                End If
            Next
        End If
    Next
    Worksheets("产品明细").[a1].Resize(n, 10) = WorksheetFunction.Transpose(br)
    For i = Worksheets("产品明细").UsedRange.Columns.Count + Worksheets("产品明细").UsedRange.Column - 1 To 1 Step -1
      If Application.CountIf(Columns(i), 0) = Application.CountA(Columns(i)) Then Columns(i).Delete
Next
End Sub

㊣二⑧经◇旭

附件漏上传了 补上附件