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" <Jeroen@discussions.microsoft.com> wrote in message
news:F105A1B8-2DE9-4182-B396-95EA2685030E@microsoft.com...
> 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
>
>