Test on a copy of your data.
for i = 1 to 300 step 3
cells(i,1).Value = cells(i,1).Value & ", " & cells(i+1).Value _
& ", " & cells(i + 2).Value
cells(i+1,1).Resize(2,1).ClearContents
Next
Range("A1:A300").SpecialCells(xlBlanks).Entirerow. Delete

--
Regards,
Tom Ogilvy

"RT" wrote in message
...
I have to get a spreadsheet setup so I can import into Access. Most of
what
would be a row in Access contains several rows that need to be merged. I
can't concencate because I need to erase my original work. This little
pic
should explain all:

RRT