Condense duplicate data to one row, data in same column in new row

Hi,
I have a spreadsheet that has "Parts" in the first column and "Due Dates" in the following columns. Currently, the data is spread across rows with the same part appearing more than once with different dates in different columns.

I would like to condense the data to a single row per part but with its dates spread across columns in the same row (and remaining in its same column position as it was originally but in the new row). Preferably with VB.


Example below:

Existing Worksheet (Sheet1)
A1 A2 A3 A4
R1 Part1 10/1
R2 Part1 10/2
R3 Part1 10/3
R4 Part2 10/1
R5 Part2 10/4

Condensed Worksheet (Sheet2)
A1 A2 A3 A4
R1 Part1 10/1 10/2 10/3
R2 Part2 10/1 10/4

I don't know if the spacing in the example will carry into the posted message so I have attached an example spreadsheet (Excel 2007).
Thank you,
Chris


New Parameters:
Condense onto same worksheet (instead of separate worksheet).