Sorting Data - copy only needed data (macro)

Hi Friends!

Can someone help me out with my VB code. I have a sheet that contains raw data (sheet1) and I already created a macro that can delete all blanks and copy the data in sheet2. But Im really having trouble creating a macro which will get me the needed outcome (sample sheet). . .

I only need to copy the name of the employee from the raw data (sheet1) and its total of 1 (sheet1).


adherence_v2.xlsm


Also I have this problem that the macro that I created seem so slow. . . .