You could apply a filter to the Dist column, selecting 007 - only these
would be displayed. Highlight the visible rows (including header), and
click <copy, then click into the sheet for 007 and paste - only the
employees matching 007 will be included on that sheet. Then in the
original sheet, select 010 for the filter and repeat. If you only have
the four values of Dist referred to in your posting, it should only
take a couple of minutes - quicker than developing VBA code for it.

Hope this helps.

Pete