VBA to create crosstab/pivot table in new sheet

Hello,

I have the dataset below:

MRN NAME UNIT NUMBER PRODUCT CODE ORDER DATE START TIME END TIME PRODUCT STATUS ADMIN USER DUAL SIGNOFF USER DEPARTMENT
1 DATA DATA DATA DATA 1/1/2025 14:00 DATA DATA DATA A ICU
2 DATA DATA DATA DATA 1/1/2025 14:01 DATA DATA DATA B ICU
3 DATA DATA DATA DATA 1/1/2025 14:02 DATA DATA DATA C ED
4 DATA DATA DATA DATA 1/1/2025 14:03 1/2/2025 15:03 DATA DATA DATA ED
5 DATA DATA DATA DATA 1/1/2025 14:04 1/2/2025 15:04 DATA DATA DATA ED
6 DATA DATA DATA DATA 1/1/2025 14:05 1/2/2025 15:05 DATA DATA DATA ICU
7 DATA DATA DATA DATA 1/1/2025 14:06 1/2/2025 15:06 DATA DATA DATA D ICU
8 DATA DATA DATA DATA 1/2/2025 15:07 DATA DATA DATA E ICU
9 DATA DATA DATA DATA 1/2/2025 15:08 DATA DATA DATA F ICU
10 DATA DATA DATA DATA 1/1/2025 14:09 1/2/2025 15:09 DATA DATA DATA G ICU
11 DATA DATA DATA DATA 1/1/2025 14:10 1/2/2025 15:10 DATA DATA DATA H INF
12 DATA DATA DATA DATA 1/1/2025 14:11 1/2/2025 15:11 DATA DATA DATA I INF
13 DATA DATA DATA DATA 1/1/2025 14:12 1/2/2025 15:12 DATA DATA DATA J ED


I was hoping to setup a vba script that would create subtotals on columns START TIME, END TIME, and DUAL SIGNOFF USER that would count BLANKS. Grouped by the DEPT column.

Something like this:

START TIME END TIME DUAL SIGNOFF USER
ICU 2 2 1
ED 0 1 2
INF 0 0 0


Any ideas?example.xlsx