Stĺpec A som z príkladu pochopil ako dátum, B ako značku a C ako farbu...
potom ale sčítaval len D,E a F. G tam už nie je. Ak som to zle pochopil, tak treba kód upraviť v tom zmysle ako to potrebuješ.
A urobil som to tak, že v hárku 1 môžeš mať zoznam, nielen jeden riadok. Týmpádom prejde celý zoznam na hárku 1 a urobí, čo treba na hárku 2. Potom je možné zoznam na 1. hárku zmazať


Sub Makro1()
PR1 = Sheets(1).Range("A3").End(xlDown).Row
PR2 = Sheets(2).Range("A3").End(xlDown).Row
For i = 3 To PR1
For j = 3 To PR2
If Sheets(1).Range("A" & i) = Sheets(2).Range("A" & j) And Sheets(1).Range("B" & i) = Sheets(2).Range("B" & j) And Sheets(1).Range("C" & i) = Sheets(2).Range("C" & j) Then
Sheets(2).Range("D" & j) = Sheets(2).Range("D" & j) + Sheets(1).Range("D" & i)
Sheets(2).Range("E" & j) = Sheets(2).Range("E" & j) + Sheets(1).Range("E" & i)
Sheets(2).Range("F" & j) = Sheets(2).Range("F" & j) + Sheets(1).Range("F" & i)
GoTo DalsieI
End If
Next j
Sheets(1).Range("A" & i & ":F" & i).Copy (Sheets(2).Range("A" & (PR2 + 1)))
PR2 = PR2 + 1
DalsieI:
Next i
End Sub