Match values and sum columns

Ok, so first post here but I'm stumped on how to get started on this code. What I have to do is take a downloaded excel sheet that has repeating values, sum up 14 associated columns and then output them to another sheet in the same workbook.

Basically:

XXX 4 5 8 9
AAA 7 5 3 4
XXX 6 5 3 7

Would output:
XXX 10 10 11 16
AAA 7 5 3 4

I want to code this since I will be doing this monthly and each download can have up to 5000 lines. I know I've got to get a find function, sum function, and a step function in there but I'm new to VBA so I'm not up on the syntax.

If anyone can help me with this it would be greatly appreciated.

Hi

Data on sheet1 starting in A1, and output going to existing sheet, sheet2.

See how this goes.

Sub ddd()
  Dim OutSH As Worksheet, nodupes As New Collection, lastrow As Long
  Set OutSH = Sheets("Sheet2")
  lastrow = Cells(Rows.Count, 1).End(xlUp).Row
  For Each ce In Range("A1:A" & lastrow)
    On Error Resume Next
    nodupes.Add Item:=ce.Value, key:=CStr(ce.Value)
    On Error GoTo 0
  Next ce
  
  For i = 1 To nodupes.Count
    OutSH.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = nodupes(i)
  Next i
  
  OutSH.Activate
  Range("B2").Formula = "=sumproduct(--(sheet1!$a$1:$a$" & lastrow & "=$a2),(sheet1!B$1:B$" & lastrow & "))"
  lastrow = Cells(Rows.Count, 1).End(xlUp).Row
  Range("B2").AutoFill Destination:=Range("B2:B" & lastrow)
  Range("B2:B" & lastrow).AutoFill Destination:=Range("B2:E" & lastrow)
  
End Sub

rylo

No go; The output on sheet 2 is just the identifier; none of the following columns. It does consolidate the identifiers though so that's a solid step ahead of where I was yesterday.

Here is a better sample of my data sets (Should just copy/paste):

109-8138 21929 0 0 101 988 3312 1944 2868 2872 3052 3032 2048 1712
109-8199 17815 0 0 75 640 2068 1644 2656 2244 2572 2516 1872 1528
109-8573 32218 0 0 90 1008 3260 3148 4920 4212 4988 4696 2932 2964

Thanks rylo,

Hi

Attach an example file with your sample data, showing both the raw data and the expected output. Probably a structure issue.

rylo

Success!

I went about it in a slightly different way but here is what I did to make it work.

Using the first half of Rylo's code, (Thank you very much) I consolidate my list to remove all duplicates; then using the "sumif" functions I totalled up my columns for the matching values. Since my data sets are uniform I just saved this as a template to use as needed.

I'm sure it could be coded into VBA but I've got what I needed. Thanks again!