我的exce不能正常运行宏

大呆一人

Sub ?????()
'??????
Sheets1("?????????С???????????").Select1
ActiveWindow.SelectedSheets.PrintOut '????????????????
'????????
With Sheets("???")
x = .Range("a65536").End(xlUp).Row + 1 '???"???"?????????????е??к????д??λ???
For i = 0 To 2 '???????????У??????????????????
.Cells(x + i, 1) = [b3] '???
.Cells(x + i, 2) = [d3] '????
.Cells(x + i, 3) = [h3] '??????
Cells(x + i, 4) = [d4] '￥??
.Cells(x + i, 5) = [f4] '???
.Cells(x + i, 6) = [h4] '??λ
.Cells(x + i, 7) = Cells(i + 6, 1) '???????
.Cells(x + i, 8) = Cells(i + 6, 2) '???????
.Cells(x + i, 9) = Cells(i + 6, 3) '???????
.Cells(x + i, 10) = Cells(i + 6, 4) '????
.Cells(x + i, 11) = Cells(i + 6, 5) '???
.Cells(x + i, 12) = [e10] '?????
.Cells(x + i, 13) = [h10] '??????
Next
End With
'??????????????E2?????й???????????????
Range("b2,d2,a4:d6,b8,e8").ClearContents
'?????????????????1
s = Range("e2") '?????????????E2?????
Range("e2") = Left(s, 2) & Right("0000" & Right(s, 4) + 1, 4) '????????????????????????λ???????????λ???????
MsgBox "????????????", , "???"
End Sub

专搞excel

这代码是什么玩意

lsc900707

上传附件，不要只是发个图片上来！

不知道为什么

出错得excel附件上传