Anyone have advice for me on shifting cells within an over 1000 record
database to consolidate all data in a single record per individual.
Now I have sometimes 7, sometimes 1 row per individual, each with some
accomplishment following name and address. These are members of a
sports organization. After pulling all accomplishments onto one
record I then want to print certificates with all accomplishments
listed on a single sheet. Sorry, I 'm not real experienced, but think
it would go something like this:

Dim counter As Integer
Range("AA2").Select
Do
Do
ActiveCell.Offset(-1, 0).Select
Selection.Insert Shift:=xlToRight
ActiveCell.Offset(1, 0).Select
Selection.EntireRow.Delete
counter = counter + 1
While Cells(counter, 3) = Cells(counter - 1, 3)
Loop Until ActiveCell = ""

I get a "Loop without Do" message...

I'm trying to key off name in col C which repeats that variable
number of times but is identical in each appearance. Any advice would
be appreciated Thanks