Excel-Werte eingeben und in neue Tabelle schreiben

Hallo Leute,

Ich hätte da mal bitte einen Lösungsvorschlag von Euch zu Excel oder Libre Calc:
Mein Wissen ist da eher "Anwender-Like"....

Folgendes:
Grob: Es sind Maße (Breite + Länge)in Zentimeter einzutragen und wie oft dieses Maß vor kommt. Also 3 Felder, wobei 2 Felder aus einer
Liste zu wählen sind. Die Werte sind an unterschiedlichen Tagen einzugeben, so dass man nie weiß, wann welcher Wert mal eingegeben wird...

Folgendes habe ich soweit vorbereitet:
Ich wähle also z.B.aus 2 Dropdownlisten in H1(Breite) + I1(Länge) (mit Datenüberprüfung, Liste aus Zelle A1-A10 und B1-B10) zwei Einträge aus. Daneben gebe ich in
J1 eine Zahl ein, die besagt, wie oft dieses Maß/Kombination gerade vor kommt. In K1 wäre dann noch ein "Übernehmen" Button, der diese 3 Werte dann in meine neue Tabelle2 dynamisch schreibt(Quasi der Auslöser).
Wenn ich meine Angaben abgeschlossen habe, möchte ich eine neue Tabelle2 mit folgenden Inhalten haben:

Breite, Länge und wie oft diese Kombination von Werten vor kommt.
Am besten noch Aufsteigend nach "Breite" sortiert".


Hier mal ein Beispiel, wie Tabelle2 aussehen sollte:

Breite Länge Wie oft:
42 120 10
60 80 20
90 180 7
etc.

Hat da jemand eine Vorschlag? Geht das mit Excel-Hausmitteln oder ist da VBA notwendig?

Danke Euch vorab für jeden Tipp!

Werner

With ActiveSheet
    .Range("A1:C" & .Cells(Rows.Count,"A").End(xlUp).Row).Copy Destination:=Sheets("Tabelle2").Range("A1")  
End with

Sub Combinations()
    With ActiveSheet
        Set dic = CreateObject("Scripting.Dictionary")  
        For Each cell In .Range("A1:A" & .Cells(Rows.Count, "A").End(xlUp).Row)  
            combi = cell.Value & "x" & cell.Offset(0, 1).Value  
            If dic.Exists(combi) Then
                dic.Item(combi) = dic.Item(combi) + cell.Offset(0, 2).Value
            Else
                dic.Add combi, cell.Offset(0, 2).Value
            End If
        Next
        With Sheets("Tabelle2")  
            keys = dic.keys
            For i = 0 To UBound(keys)
                arrValues = Split(keys(i), "x", 2, 1)  
                .Cells(i + 1, 1) = CDbl(arrValues(0))
                .Cells(i + 1, 2) = CDbl(arrValues(1))
                .Cells(i + 1, 1).Offset(0, 2).Value = dic.Item(keys(i))
            Next
            .Range("A:C").Sort .Range("A1"), xlAscending, Header:=xlNo  
        End With
    End With
End Sub