extract range has a missing or illegal field name

I saw some threads with advice on how to fix this, but nothing helped. I'm also very new to VBA and creating macros, so I have a feeling this will have more bugs.

Basically, what I want to do is separate the data in Sheet 1 by category 'EmployeeNo.' After that, I'll also need a second macro that consolidates this data back into the same file, but I'll work on that later.

Any help would be greatly appreciated. Thanks!

File1.xlsm

By the way, I updated the attachment, but am unable to remove the previous one, so please follow the link 'File1.'