Summering af konti, array i diminsioner

Giver op på denne kode...

Skulle nogen være interesseret i min egen løsning, så kommer den her.

Sub Upload()
    Dim Ting() As String
    Dim Antal() As String
 
    Sheets("input").Select
    Data = Range("A1").CurrentRegion
    Sheets("output").Select
   
    For CounterData = 1 To UBound(Data, 1)
        Datafindes = False
        If Len(Join(Ting)) > 0 Then
            For TingCounter = LBound(Ting) To UBound(Ting)
                If Data(CounterData, 1) = Ting(TingCounter) Then
                    Datafindes = True
                End If
            Next
        End If
           
        If Datafindes = True Then
            For TingCounter = LBound(Ting) To UBound(Ting)
                If Data(CounterData, 1) = Ting(TingCounter) Then
                    Antal(TingCounter) = Antal(TingCounter) + Data(CounterData, 2)
                End If
            Next
        Else
            ReDim Preserve Ting(CounterData)
            Ting(CounterData) = Data(CounterData, 1)
            ReDim Preserve Antal(CounterData)
            Antal(CounterData) = Data(CounterData, 2)
        End If
       
    Next
   
    For TingCounter = 1 To UBound(Ting)
        Cells(TingCounter, 1) = Ting(TingCounter)
        Cells(TingCounter, 2) = Antal(TingCounter)
    Next
   
   
End Sub