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:

EXT.	1stNAME	LastName	DEPT
1234	Paul	Smith	Sales
4566	Meredith	Jones	Cook
2345	Shirley	Grasse	Sales
7624	Eddie	Coleman	Stock
3456	JR	Farthers	Stock

<tbody>
</tbody>

Want the end results to show:

EXT.	1stNAME	LastName	DEPT
1234	Paul	Smith	Sales
2345	Shirley	Grasse	Sales
4566	Meredith	Jones	Cook
7624	Eddie	Coleman	Stock
3456	JR	Farthers	Stock

<tbody>
</tbody>

 

[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