Need a macro that will cycle through list then filter, subtotal, and print the list

I am needing a macro that will cycle throught the Dept No's in range (A7:A24) of Dept_List worksheet. For each Dept No.I am then needing the data on "GL_Detail" Worksheet to filter Column C for each Dept No., then subtotal by "FS Description", sum "Amount", Print, then start over with the next Dept No.
Any help is greatly appreciated.