copy selected column based on selected value to new worksheet

hi, i'm new in using excel macro and vba. Here below i attach my sample file. i need help how to change the result from this:

Capture1.PNG

to this:

Capture.PNG

thank you.

UserSystem.xlsm

Please Login or Register  to view this content.

ladydee94

Thanks for the rep.

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED.