Public Sub ProcessData()
Dim i As Long
Dim LastRow As Long

With ActiveSheet

LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
For i = LastRow To 1 Step -1

If .Cells(i, "A").Value = "" Then

.Cells(i, "B").Resize(, 100).Copy .Cells(i - 1, "D")
.Rows(i).Delete
End If
Next i
End With

End Sub

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Richhall" wrote in message
...
I have a column with a list of names in, and then in the other two
columns a list of attriubutes for that person. The number of
attributes could change, how can i simply get a single name entry with
the attributes listed in a row.

i.e

Name Subject Grade

John English A
Maths B
Jane English B
German C
Maths B

Would be:


John English A Maths B
Jane English B German C Maths B

Cheers

Rich