为何两种算法，不一样结果，而且都是错的？

暗夜精灵Z

各位大神好，我的合同相同单元格excel表中有两种算法，DECRIPTION相同，PO#相同，则QTY相加，NW相加在第一列中，并DELETE余下相同项，第一种算法是从底部开始向上遍历，第二种是从首部开始开始遍历，但是结果都和正确答案有差别，第一种遍历后剩余44行，第二种方法遍历后剩余55行，但是正确的是遍历后剩余45行，请求帮忙，谢谢。

暗夜精灵Z

Sub addwithdel_1()
Dim a%, b%
For a = Range("A65536").End(xlUp).Row + 1 To 2 Step -1
    For b = a - 1 To 2 Step -1
        If Cells(a, "B").Value = Cells(b, "B") Then
            If Cells(a, "C").Value = Cells(b, "C") Then
                Cells(b, "D").Value = Cells(b, "D").Value + Cells(a, "D").Value
                Cells(b, "E").Value = Cells(b, "E").Value + Cells(a, "E").Value
                Rows(a).Delete shift:=xlUp
            End If
        End If
    Next b
Next a
End Sub

Sub adwithdel_2()
Dim a As Range, b As Range, c%, d%
c = Range("A65536").End(xlUp).Row
d = 2
Set a = Range("A1")
Set b = Range("A1")
    For Each a In Range(Cells(d, "B"), Cells(c, "B"))
        For Each b In Range(Cells(d + 1, "B"), Cells(c, "B"))
            If b.Value = a.Value Then
                If Cells(b.Row, "C").Value = Cells(a.Row, "C") Then
                    Cells(a.Row, "D").Value = Cells(a.Row, "D").Value + Cells(b.Row, "D").Value
                    Cells(a.Row, "E").Value = Cells(a.Row, "E").Value + Cells(b.Row, "E").Value
                    Rows(b.Row).Delete shift:=xlUp
                End If
            End If
        Next b
    d = d + 1
    c = Range("a65536").End(xlUp).Row
    Next a
End Sub