Extract data list from Table

In Cell A4 try this Array Formula:
=IFERROR(INDEX(ContactList[LNAME],SMALL(IF(ContactList[DEPT]='Dept Contact List'!$B$1,ROW(ContactList[DEPT])-ROW(INDEX(ContactList[DEPT],1,1))+1),ROW()-3)),"")
(To enter Array Formulas, while in the formula bar, hold the Ctrl and Shift key while hitting Enter. You should see brackets {} around the formula).
Then drag the formula down for as far as you need (you can drag it farther than necessary as it will just show blanks if there's no data).
You would then continue to all the other values.
Does this help?