Combining duplicate rows into one

[ceci]

I have a sheet with 27,000 records, all of them have duplicate entries. Below
is a sample of what my records look like.

My data currently looks like this:

ID Name Fruit BC PC Date
1234 Smith Apple 09 B 12/05/05
1234 Simth Banana 04 12/05/05

This is what I want it to look like:

ID Name Fruit BC PC Date Fruit BC PC
Date
1234 Smith Apple 09 B 12/05/05 Banana 04
12/05/05

Some records might have up to 20 duplicate entries. I want to run a marco to
help me simplify things so I don't have to go through all 27,000 records
manually.

Thanks in advance for your help!

 

[Alojz]

If nobody helps you with macro, you may think about pivot table instead. Will
show you in one row ID and Name once and the rest you can aggregate according
your wishes.

 

[ceci]

Thanks for the suggestion however, a pivot table does not allow me to do
certain things that I need done. I found a macro online however, it's not
really working in the way I want it to.