Displaying results for each filter of a particular column for 5 seconds then onto next etc

Hi everyone, see attached workbook showing a small sample of records and a pivot-table - note this is just a sample dataset in reality the data is more complex.
What I would like to do is create a macro that will filter thru each "Department" in the data and display the data for 5 seconds then move onto the next subset of the data etc until it reaches the end.

Grateful for any help you can provide, I tried recording the steps but it wouldn't work hence my reaching out on ExcelForum

Thanks in advance.
Karim.