VBA count duplicates based on column then delete duplicate, but keep one

[RomanNaz]

Hello! Trying to make sheet for import UPS shipments from SOR.
I have excel with orders and shipment data. 1 row = 1 shipping box
I need to find duplicates in column with order number, add count of duplicates to cell (e.g. "number of boxes"), then delete duplicate rows but keep one
Before:
Order Name Phone
1234 John 8909809
1234 John 8909809
1234 John 8909809
1248 Mike 9898799
1248 Mike 9898799
1248 Mike 9898799
1234 John 8909809

After:
Order Name Phone NumbrBoxes
1234 John 8909809 4
1248 Mike 9898799 3

I really appreciate any help you can provide

 

[Marc L]

Hi, according to Excel basics a VBA demonstration as a beginner starter :​

Sub Demo1()
    Dim R&
        R = [A1].CurrentRegion.Rows.Count:  If R < 3 Then Beep: Exit Sub
        Application.ScreenUpdating = False
        [D1] = "Boxes #"
    With Range("A2:D" & R).Columns
        .Item(4).Formula = "=COUNTIF($A$2:$A$" & R & ",A2)"
        .Item(4).Formula = .Item(4).Value2
        .RemoveDuplicates 1, 2
    End With
        Application.ScreenUpdating = True
End Sub