Merge based on columns if there are duplicated data

Hello,

I have an issue i'm dealing with. I have a large volume of data and i need to manage and organize somehow.

Example:


A B C D E
CHRIS AN204 2005 Apple Green
CHRIS AN204 2005 Apple Red
CHRIS AN205 2005 Apple Yellow
TOM AN204 2006 Apple Green


This should look like this

A B C D E
CHRIS AN204 2005 Apple Green, Red
CHRIS AN205 2005 Apple Yellow
TOM AN204 2006 Apple Green

I manage somehow to find a VBA code that will merge my rows, but it's not working as it should. It's losing data.

Do you have any idea how i should do this? Also in a cell it can happen to have more than 255 characters.