Grouping Part Numbers

Hi, I have a program that exports all part numbers for a project, along with quantities, into excel. This program is basic, and if I have one part number called out 6 times, with 6 different quantities (or the same) it will put it into the spreadsheet 6 different times. Is there a way to sort, then combine each part number, so I only see each part number once, with the total quantity? I have a bit of programming experience, but none with excel, so if someone can just get me started in the right direction it would be much appreciated.

Thanks,
Alan

ItsAlan,

If the data has headers, part numbers are in column A, and Quantity in column B, you should be able to use the following macro:

Sub tgr()
    
    Static rngPrts As Range: Set rngPrts = Intersect(ActiveSheet.UsedRange, ActiveSheet.Columns("A"))
    Static rngDest As Range: Set rngDest = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Offset(1, 4)
    Application.ScreenUpdating = False
    
    rngPrts.AdvancedFilter xlFilterCopy, rngPrts, rngDest, True
    Dim arrPrts As Variant: arrPrts = Range(rngDest.Offset(1), rngDest.End(xlDown)).Resize(, 2).Value
    rngDest.EntireColumn.Delete
    
    Dim PrtIndex As Long
    For PrtIndex = 1 To UBound(arrPrts, 1)
        arrPrts(PrtIndex, 2) = WorksheetFunction.SumIf(rngPrts, arrPrts(PrtIndex, 1), rngPrts.Offset(, 1))
    Next PrtIndex
    
    rngPrts.Offset(1).Resize(, 2).ClearContents
    Range("A2").Resize(UBound(arrPrts, 1), 2).Value = arrPrts
    
End Sub

Hope that helps,
~tigeravatar