Merge cells in corresponding column based on similar values

Hello Everybody,
I would like to merge cells in different columns based on similar values in column "FN".
The attachment shows you how the result should look like.
Thank you very much for your support.
Niclal

Hi,
All columns "Fil", "Gra", "Inac", "Doc" have to be merged.
Thank you

Niclal

Hi,
This is exactly what I need. Would it be possible to have the results replace the original data instead of putting them in the sheet "After". The column headers are in the first row starting in A1.
Thank you so much in advance.
N

Dear PCI,
one last question:
the location of the columns have been changed: column "FN" is now in column B, column "Fil", "Gra", "Ina", "Doc" are respective in column W, X, Y, Z. How should the code be revised?
Thank you very much

Capture.JPG

Hi PCI,
I am afraid, there is one piece of information I didn't mention: Column A as well as columns C to V has also content. After running the macro only one row (the first) should remain with information; all other duplicate rows should be removed.
Thank you so much

Hi PCI,
I have now included an update of my table showing "Before" and "After" as tabs.
I really appreciate your time and help.
N

Hi PCI,
When I test it with a similar table with the same column headers but more text, I get the error message "Run-time error 13 Type Mismatch" at the line "WSDest.Range("A2").Resize(.Count, 26) = Application.Transpose(Application.Transpose(.items))"
Any thoughts?
Thank you
N

Hi PCI,
I fully understand that, but unfortunately, I cannot make the text public, and that's why I am trying to describe the content. The number of columns is the same as in Book2, I have around 1000 rows, the cells in the first column contain hyperlinks, and I have sometimes more data inside one cell.
I cannot tell how much I appreciate your help.

N

Dear PCI,
Unfortunately, I still get the error message "Run-time error 13 - Type Mismatch" on line "WSDest.Range("A2").Resize(.Count, 26) = Application.Transpose(Application.Transpose(.items))"
Regards,
N

Dear PCI,
Good day! I have prepared a test file to demonstrate the error message I get.
Many thanks for your help
N

Dear PCI,
I would like to really thank you for the awesome help. You rock!
One last wish I have before closing this post: Could you please take a look at the column T in the attachment and revise your macro accordingly.
Thanks a bunch in advance.

N

Dear PCI,
My last question is about how to merge the values in column col20.
Let's take 2 examples:
In column FN, we have 3 "1001" and 4 "2011" ; for "1001" the corresponding values in column col20 are "0", blank, "1"; for "2011" the corresponding values in column col20 are "1", "1", "1", "1".
If the values contain at least one "1", then "1" is taken. If there is no "1", then "0" is taken.
In our 2 examples, that means: for the FN value "1001", the corresponding value in col20 is "1"; for the FN value "2011", the corresponding value in col20 is "1";
I hope, this is now clear.
Thanks a lot

N

Hi PCI,
I'd like to thank you again for the great help you provided to me.
Thank you so much.
N