Merge cells in corresponding column based on similar values

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