Help with macro to merge/clear duplicate values and leave unique

This is my first post I am sincerely appreciate the help. I am looking for a macro to merge/clear rows of data in individual columns and for unique data leave it in its own cell. I am attached a before and after screenshot of what I am trying to accomplish. Thank you again for the help.

Thank you!