Macro for auto filter & Copy to new workbook

Dear VBA Guru’s,

I am looking for a VBA Code to smoothen the below process.

I have a workbook called Dept. queries and it contains two sheets 1. Data (updated on daily basis) 2. Dept ( Contains Dept. Names)

Based on the sheet 2 (Dept names) Macro needs to autofilter the exact dept name on sheet (Data) and copy. (Note: Dept. names can be added if there is a new dept. added)

Copy destination would be the workbook I have already created workbook in the same folder with the same dept name.

I have attached the workbook for your reference.

Appreciate Immediate help on this !!!!!