Thanks Joel, now all I need to do is figure out how to put this in the excel
workbook as a Macro?

Rob

"Joel" wrote:

Sub move_to_columns()

Sh1RowCount = 1
Sh2RowCount = 0
Sh2ColCount = 2
With Sheets("Sheet1")
ID = ""
Do While .Range("A" & Sh1RowCount) < ""
NewID = .Range("A" & Sh1RowCount)
Data = .Range("B" & Sh1RowCount)
With Sheets("Sheet2")
If NewID = ID Then
.Cells(Sh2RowCount, Sh2ColCount) = Data
Sh2ColCount = Sh2ColCount + 1
Else
ID = NewID
Sh2RowCount = Sh2RowCount + 1
.Range("A" & Sh2RowCount) = ID
.Cells(Sh2RowCount, "B") = Data
Sh2ColCount = 3
End If
End With
Sh1RowCount = Sh1RowCount + 1
Loop
End With

End Sub


"RobM" wrote:

Any idea's as to take data that looks like this:

1st column 2nd column
10075 6L
10075 6M
10075 6O

And make it look like this:

1st column 2nd column 3rd column 4th column
10075 6L 6M 6N