There's a lot of code to go through. One point, this will not speed it up, your variables & constants should be declared at the top of the code. It's easier to read like that.

You use Loops to find departments. Advanced Filter -> Unique values might be faster. Just copy the results to an out of the way column.

Your Find, FindNext code might be faster if replaced by AutoFilter