出问题了谁能帮我解决下哦

如下，自学不易，坎坷啊。刚编第一段代码问题出现了（如下代码）
Sub 模拟测试vba()
Worksheets("总计").Range("b3:o53").Value = ""
Dim a!, b!, c!, d!, e!, f!, n!
a = Worksheets("数据明细").Cells(Rows.Count, 5).End(xlUp).Row
For b = 3 To 53
For c = 2 To a
If Worksheets("总计").cell(a, 1) = Worksheets("数据明细").Cells(c, 5) And Worksheets("数据明细").Cells(c, 7) = "零担" Then
Worksheets("总计").cell(a, 4) = Worksheets("总计").cell(a, 4) + 1 And Worksheets("总计").Cells(a, 5) = Worksheets("数据明细").Cells(c, 6) + Worksheets("总计").Cells(a, 5)
Else
Worksheets("总计").cell(a, 2) = Worksheets("总计").cell(a, 2) + 1 And Worksheets("总计").Cells(a, 3) = Worksheets("数据明细").Cells(c, 6) + Worksheets("总计").Cells(a, 3)
End If
Next c
Next b
End Sub

谁知道怎么解决啊，大神和学习的能加一个q吗？想学好vba,拜师交朋友。