Fusion de lignes sous plusieurs conditions

Bonjour tout le monde !
Je fais appel à vous car je ne sais vraiment pas comment faire... Je suis débutante en VBA, mais grâce à mon stage j'ai pu apprendre quelques notions.

Je viens vers vous car j'ai un problème que je n'arrive pas à résoudre, malgré de multiples essais.
J'ai un classeur excel avec plusieurs colonnes : un numéro 1, un nom de produit, un deuxième numéro, des quantités et des dates.
Je voudrais fusionner des cellules si les numéros de la colonne A sont les mêmes, et si les numéros de la colonne C sont les mêmes. Je voudrais également sommer les quantités des cellules que je fusionne, et dans la colonne date, conserver la date la plus récente.

Voici un exemple du fichier de travail (c'est un fichier professionnel, et je ne peux donc pas le partager... Il contient 800 lignes et une 30aines de colonnes) :

A B C D E

Numéro1 Produit Numéro2 Quantité Date
4315955 Produit1 A4546545 1 12/09/2015
1314116 Produit2 B5465452 6 08/07/2015
4157819 Produit3 C6545454 5 04/09/2015
5548455 Produit4 D7874361 8 06/08/2015
4315955 Produit1 A4546545 1 17/05/2015
1314116 Produit2 B5465452 5 15/06/2015

Et voici le code que j'ai commencé à faire, et qui plante, mais je n'ai pas encore trouvé pourquoi (je me suis dit que ça devait être à cause du nombre de lignes présents dans le fichier et du nombre de boucles que je demandais à Excel de faire) :

Dim i As Integer

        Dim EndLigFusion As Integer

            EndLigFusion = .Range("B" & Rows.Count).End(xlUp).Row

           

        Application.DisplayAlerts = False

           

        For NumLig = EndLigFusion To 7 Step -1

            For i = EndLigFusion To 8 Step -1

           

                If .Range("B" & NumLig).Value = .Range("B" & i).Value And .Range("D" & NumLig).Value = .Range("D" & i).Value Then

                    .Range("B" & NumLig, "B" & i).Merge

                    .Range("D" & NumLig, "D" & i).Merge

                    .Range("E" & NumLig).Formula = .Range("E" & NumLig).Value + .Range("E" & i).Value

                    

                    If .Range("O" & NumLig).Value > .Range("O" & i).Value Then

                        .Range("O" & NumLig).Value = .Range("O" & NumLig).Value

                    Else

                        .Range("O" & NumLig).Value = .Range("O" & i).Value

                    End If

                End If

            Next i

        Next NumLig

En vous remerciant d'avance de vos réponses!