Sorting Cells (Alphabetical)

[Disarmonious]

I have 6 columns (cells L3 and O3 are labeled "Name", cells M3 and P3 are labeled "ID", and cells N3 and Q3 are labeled "Location"). I have a button named "Sort". I would like to create a macro that would sort the names alphabetically when pressed. I also need the information in the neighboring column/cells to follow the names as they move up/down when sorting. Example;

Johnson, Shirley 12478 Forest Areno, Gilbert 61475 Mountain
Storm, Jack 45164 Mountain Gaston, Alex 33413 Lake
Fredrick, Kenny 10141 Lake Zildan, Gus 41741 Forest

When the "Sort" button is pressed, I want the names to arrange like this;

cells (L3, M3, and N3)

Areno, Gilbert 61475 Mountain

Fredrick, Kenny 10141 Lake
Gaston, Alex 33413 Lake


cells (O3, P3, and Q3)

Johnson, Shirley 12478 Forest ​

Storm, Jack 45164 Mountain _{^{<strike>
</strike>}}Zildan, Gus 41741 Forest


​

Essentially, when the names are sorted alphabetically, their ID and Location follows. Hope this helps...

 

[footoo]

Sub Sort()
Dim lr&, rng As Range
lr = Cells(Rows.Count, "L").End(xlUp).Row
Set rng = Range("O2:Q" & lr)
Application.ScreenUpdating = False
rng.Cut Destination:=Cells(lr + 1, "L")
[L:N].Sort Key1:=[L1], Order1:=xlAscending, Header:=xlYes
Range(Cells(lr + 1, "L"), Cells(lr + 1, "N").Resize(lr - 1)).Cut Destination:=[O2]
Application.ScreenUpdating = True
End Sub

 

[Logit]

.
Using the Macro Recorder created this macro :

Sub Macro1()
Application.ScreenUpdating = False


    Range("L4:N6").Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("L4:L6"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("L3:N6")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    Range("O3:Q6").Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("O4:O6"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("O3:Q6")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("K1").Select
Application.ScreenUpdating = True
End Sub