Thank you! Just to clarify, I'm not that great with Visual Basic, so the
Company name is in Column A, a company id number is in Column B, and the I
want to move to one rows are in Columns C through K. The total amount of rows
is 8,500.

How would that look in this script? Sorry, I'm very green at this stuff.

"ryguy7272" wrote:

I didn't develop this; found it on the DG a while back:
Sub newlist()
Set w1 = Sheets("Sheet1")
Set w2 = Sheets("Sheet2")
w2.Cells(1, 1).Value = w1.Cells(1, 1).Value
w2.Cells(1, 2).Value = w1.Cells(1, 2).Value
Ide = Cells(1, 1).Value
w1.Activate
n = Cells(Rows.Count, 1).End(xlUp).Row
k = 3
kk = 1
For i = 2 To n
If w1.Cells(i, 1).Value = Ide Then
w2.Cells(kk, k).Value = w1.Cells(i, 2).Value
k = k + 1
Else
kk = kk + 1
k = 3
Ide = w1.Cells(i, 1).Value
w2.Cells(kk, 1).Value = Ide
w2.Cells(kk, 2).Value = w1.Cells(i, 2).Value
End If
Next
End Sub


Regards,
Ryan--

PS, here is the original link:
http://www.microsoft.com/office/comm...=en-us&m=1&p=1

GS is brilliant at this stuff!!

--
RyGuy


"MJD" wrote:

I apologize if this question is a no-brainer. I have some data that I need to
sort and there has to be an easier way than the way I'm doing it.

Col A: Col B: Col C: Col D:
Company Mon Tues Wed

ABC 12
ABC 34
ABC 56


I would like this to sort, remove duplicate entries and look like this:

Company Mon Tues Wed
ABC 12 34 56

Any suggestions?

Thanks,
Micah