Columns and unique IDs

Hey y'all,

I have data in 12 columns, each 10 rows. One column contains an identification code, other an associated count for a demographic. The some codes are repeated in multiple columns, but some columns have a code that only appears with a particular demographic. Example: (the formatting stinks, but the X count is always a positive integer, the code is alphanumeric):

Code X Count Code
10 10 31
11 12 11
EN 15 J6
31 1 10
J6 ZZ
45 92...
X1
KR
88
22


All the data is made up at this point. However what I want is to have a macro loop through the codes and print out the unique codes in a column, then loop through again and sum the data associated with each code (so if code 10 appears in six column, it should be the sum of those 6 numbers). Problem is, I'm not great at macros/VBA, so I'm asking for help.

Why not send a file with a before and after, its so much easier to understand !!!!

Sorry, first timer!

AttachedExample.xlsx

Try this:-
Results start "Y1" (for top 10)

Sub MG19Dec34
Dim Rng As Range, Dn As Range, n As Long
Dim Ac As Long, Lg As Long, K As Variant
Set Rng = Range("B3").Resize(10)
With CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
For Each Dn In Rng
For Ac = 0 To 21 Step 3
    If Not .Exists(Dn.Offset(, Ac).Value) Then
        .Add Dn.Offset(, Ac).Value, Dn.Offset(, Ac + 1).Value
    Else
        .Item(Dn.Offset(, Ac).Value) = .Item(Dn.Offset(, Ac).Value) + Dn.Offset(, Ac + 1).Value
    End If
Next Ac
Next
ReDim ray(1 To 10, 1 To 2)
For n = 1 To 10
    Lg = Application.Large(.items, n)
    For Each K In .keys
        If .Item(K) = Lg Then ray(n, 1) = K: ray(n, 2) = Lg
    Next K
Next n

Range("Y1").Resize(10, 2) = ray
End With

End Sub

Regards Mick