PIVOT TABLE or GROUPING (Not sure what to do)

[posh57]

I've created a company phone directory that is currently sorted by extensions.
I'm trying to create a macro that sorted by their department.

For example:
[TABLE="width: 500"]
<tbody>[TR]
[TD]EXT.[/TD]
[TD]1stNAME[/TD]
[TD]LastName[/TD]
[TD]DEPT[/TD]
[/TR]
[TR]
[TD]1234[/TD]
[TD]Paul[/TD]
[TD]Smith[/TD]
[TD]Sales[/TD]
[/TR]
[TR]
[TD]4566[/TD]
[TD]Meredith[/TD]
[TD]Jones[/TD]
[TD]Cook[/TD]
[/TR]
[TR]
[TD]2345[/TD]
[TD]Shirley[/TD]
[TD]Grasse[/TD]
[TD]Sales[/TD]
[/TR]
[TR]
[TD]7624[/TD]
[TD]Eddie[/TD]
[TD]Coleman[/TD]
[TD]Stock[/TD]
[/TR]
[TR]
[TD]3456[/TD]
[TD]JR[/TD]
[TD]Farthers[/TD]
[TD]Stock[/TD]
[/TR]
</tbody>[/TABLE]

Want the end results to show:
[TABLE="width: 500"]
<tbody>[TR]
[TD]EXT.[/TD]
[TD]1stNAME[/TD]
[TD]LastName[/TD]
[TD]DEPT[/TD]
[/TR]
[TR]
[TD]1234[/TD]
[TD]Paul[/TD]
[TD]Smith[/TD]
[TD]Sales[/TD]
[/TR]
[TR]
[TD]2345[/TD]
[TD]Shirley[/TD]
[TD]Grasse[/TD]
[TD]Sales[/TD]
[/TR]
[TR]
[TD]4566[/TD]
[TD]Meredith[/TD]
[TD]Jones[/TD]
[TD]Cook[/TD]
[/TR]
[TR]
[TD]7624[/TD]
[TD]Eddie[/TD]
[TD]Coleman[/TD]
[TD]Stock[/TD]
[/TR]
[TR]
[TD]3456[/TD]
[TD]JR[/TD]
[TD]Farthers[/TD]
[TD]Stock[/TD]
[/TR]
</tbody>[/TABLE]

 

[Peter_SSs]

Welcome to the MrExcel board!

I'm not sure whether I am understanding as the first table does not appear to be sorted by extension as you describe, and the second table does not appear to be sorted (alphabetically) by department.

However, assuming the original data is in columns A:D, you could try this in a copy of your workbook.

Sub SortByDept()
  Range("A1", Range("D" & Rows.Count).End(xlUp)).Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlYes, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End Sub