Macro qui suprime un doublon et additionne les quantité

Bonjour,
Je sais que la "question" est fermer mais je tente quand même le coup ...
J'essaie actuellement d’améliorer le code que vous m'avait donner ...
J'en suis à un point ou j'aimerais que le début de ma liste à trier soit modulable. Je veux dire que la lisre peut commencer en A6 puis en A36 puis en A100 ....
J'ai essayer les code suivant :

Sub supprimerDoublonTotauxTEMPORAIRE(nb As Integer)
Dim ligne%
Dim var
Let var = "A" & nb
Set rng2 = Worksheets("tableauRecap").Range(var)
   'Worksheets("tableauRecap").[A6].CurrentRegion.Sort , Key1:=[rng2], Header:=xlYes
   
  
  ligne = nb
  Do While Cells(ligne, 1) <> ""
     If Worksheets("tableauRecap").Cells(ligne, 1) = Worksheets("tableauRecap").Cells(ligne + 1, 1) And Worksheets("tableauRecap").Cells(ligne, 2) = Worksheets("tableauRecap").Cells(ligne + 1, 2) And Worksheets("tableauRecap").Cells(ligne, 3) = Worksheets("tableauRecap").Cells(ligne + 1, 3) And Worksheets("tableauRecap").Cells(ligne, 4) = Worksheets("tableauRecap").Cells(ligne + 1, 4) And Worksheets("tableauRecap").Cells(ligne, 6) = Worksheets("tableauRecap").Cells(ligne + 1, 6) And Worksheets("tableauRecap").Cells(ligne, 7) = Worksheets("tableauRecap").Cells(ligne + 1, 7) Then
        Worksheets("tableauRecap").Cells(ligne, "E") = Worksheets("tableauRecap").Cells(ligne, "E") + Worksheets("tableauRecap").Cells(ligne + 1, "E")
        Worksheets("tableauRecap").Cells(ligne, "G") = Worksheets("tableauRecap").Cells(ligne, "G") + Worksheets("tableauRecap").Cells(ligne + 1, "G")
        Rows(ligne + 1).Delete
     Else
        ligne = ligne + 1
     End If
  Loop

Cepandant le [A6] de

 'Worksheets("tableauRecap").[A6].CurrentRegion.Sort , Key1:=[rng2], Header:=xlYes

ne peut pas être modifier de la manière suivant

[rng2]

Auriez vous une solution ?
Merci d'avance de votre réponse.
Cordialement.