EXCEL运行错误 1004

Sub 部门明细报表()
Dim i As Integer, j As Integer, bmrow1 As Integer, temp As Integer
Dim bmmxrow As Integer, lbrow As Integer, ckrow As Integer
Dim je As Single
Dim Message, Title, Default, MyValue
Title = " 友情提醒 --by heaven"

Message = " 请确认期间已经输入正确!"

MyValue = MsgBox(Message, 1, Title)
If MyValue = 1 Then

bmrow1 = Sheets("基本资料").[i65536].End(xlUp).Row

bmmxrow = Sheets("部门明细报表").[b65536].End(xlUp).Row

Application.ScreenUpdating = False

With Sheets("部门明细报表")
'清除设置
If bmmxrow > 2 Then
Range("a3:i" & bmmxrow & "").ClearContents
ActiveSheet.ResetAllPageBreaks
End If

j = 3

For i = 3 To bmrow1 + 1 '部门循环
.Cells(j, 2) = Sheets("基本资料").Cells(i - 1, 9)
temp = j
ckrow = 2
Do While Not (IsEmpty(Sheets("出库数据").Cells(ckrow, 1)))

If

运行错误？ 运行程序里总有excel运行 Excel错误提示如下： Excel表格计算错误? excel计算错误 excel sumif错误 excel求和错误 如何查找EXCEL错误链接 excel公式不运行 Excel运行缓慢,怎么办?