Macro to sort a list with duplicates and add bottom border for last duplicate

[kuntilfusk7]

Hi,

I am new to this forum. Most of my macro experience is based on recording macros and doing a little cleanup afterwards, however, these macros tend be rather long and slow. I have not been able to find an easy solution to below problem:

I have a long list of sales orders where most have multiple order lines. I would like to sort the list by sales order (column A) and following add a bottom border for all data (columns A-C) for the last duplicate sales order.
I have attached an example with two sheets showing how the list would look before and after running the macro

Thanks for your help

[StephenR]

Try thi:

Sub x()

Dim r As Long

With Range("A1").CurrentRegion
    .Sort key1:=.Cells(1, 1), order1:=xlAscending, key2:=.Cells(1, 2), order2:=xlAscending
    For r = 2 To Rows.Count - 1
        If .Cells(r, 1) <> .Cells(r + 1, 1) Then
            With .Cells(r, 1).Resize(, 3).Borders(xlEdgeBottom)
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = xlAutomatic
            End With
        End If
    Next r
End With

End Sub

[kuntilfusk7]

Awesome - works like a charm
Thanks a lot for your help!