Here's a macro to do it

Sub Test()
Dim iLastRow As Long
Dim i As Long
Dim rng As Range

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = iLastRow To 2 Step -1
If Cells(i, "A").Value = Cells(i - 1, "A").Value Then
Cells(i, "D").Resize(, 252).Copy Cells(i - 1, "E")
If rng Is Nothing Then
Set rng = Rows(i)
Else
Set rng = Union(rng, Rows(i))
End If
End If
Next i

If Not rng Is Nothing Then rng.Delete

End Sub

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"tgoosed" wrote in
message ...

I'm having an issue with an easy way to combine row information. Below
is an example of the both the data and what I would like as an end
result. The spreadsheet I have contains over 37000 lines.

column a column b column c column d

1234 glove ea 04661
1234 glove ea 01661
1234 glove ea 06661
1235 mask ea 04661
1235 mask ea 01661

The output I would like would be
column a column b column c column d column e column f

1234 glove ea 04661 01661
06661
1235 mask ea 04661 01661


--
tgoosed
------------------------------------------------------------------------
tgoosed's Profile:
http://www.excelforum.com/member.php...o&userid=28088
View this thread: http://www.excelforum.com/showthread...hreadid=475929