Sort sheet alphabetically

[Jakson]

I've got a data entry sheet on this workbook my agency uses for business purposes.

The data entry sheet consists of names, addresses, personal identifier numbers, and a type label.

Users are currently navigating to this sheet manually, reviewing the content of the sheet for completeness, manually entering new data, then manually sorting the sheet alphabetically on column A's last name values.

The data is duplicated four times so that there are 5 total copies of the same information, per person entered.

I'm familiar with inputboxes but I'm not sure how to go about sorting this sheet alphabetically through VBA.

Guidance is deeply appreciated

 

[PeteWright]

You could use this snippet I once wrote for sorting data with VBA.
Just edit it to suit your needs.

Public Sub SortAZ()
Dim ws As Worksheet: Set ws = ThisWorkbook.Worksheets("data")
    With ws.Sort
        .SortFields.Clear
        .SortFields.Add Key:=ws.Range("A1"), Order:=xlAscending
        .SetRange ws.Range("A1:B999")
        .Header = xlYes
        .Apply
    End With
End Sub

 

[Jakson]

You could use this snippet I once wrote for sorting data with VBA.
Just edit it to suit your needs.

Public Sub SortAZ()
Dim ws As Worksheet: Set ws = ThisWorkbook.Worksheets("data")
    With ws.Sort
        .SortFields.Clear
        .SortFields.Add Key:=ws.Range("A1"), Order:=xlAscending
        .SetRange ws.Range("A1:B999")
        .Header = xlYes
        .Apply
    End With
End Sub

Ooooo!!!

Awesome!!! Thank you so so much! I'll tweak it and mess with it as soon as I can! I just got buried in some work that came out from under our feet. WOOPs!

I bet this is it though! Thank you, @PeteWright !

 

[Jakson]

You could use this snippet I once wrote for sorting data with VBA.
Just edit it to suit your needs.

Public Sub SortAZ()
Dim ws As Worksheet: Set ws = ThisWorkbook.Worksheets("data")
    With ws.Sort
        .SortFields.Clear
        .SortFields.Add Key:=ws.Range("A1"), Order:=xlAscending
        .SetRange ws.Range("A1:B999")
        .Header = xlYes
        .Apply
    End With
End Sub

Just wanted to come back and let you know @PeteWright , it works like a charm!

I've got some work to do to make the rest of my thingie do what I want but this little code snippet saved me a TON of time!

 

[PeteWright]

Just wanted to come back and let you know @PeteWright , it works like a charm!

I've got some work to do to make the rest of my thingie do what I want but this little code snippet saved me a TON of time!

Glad to hear that!
Let me know if you need anything else.

Kind regards
Pete