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

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, "B").Resize(, 253).Copy Cells(i - 1, "C")
Rows(i).Delete
End If
Next i

End Sub



--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)

"Jeroen" wrote in message
...
Can anybody help me with the next problem.
I have an Excel file wich is like folowing :

A B
Name 1 problem1
Name 1 problem2
Name 1 problem3
Name 2 problem1
Name 2 problem2
Name 3 problem1

and so on ....

I have to seperate each name with more columns where the "problems"
reside.
So :

A B C D
Name 1 problem1 problem2 problem3
Name 2 problem1 problem2
Name 3 problem1

Anybody a solution to do this automaticly with an formula or macro.
I have about 2000 names !!!

Thanks in advance (I am using Excel 2000)
Jeroen