You could turn calculation to manual, run the macro and put it back to what it
was.

And since it's deleting a bunch of lines, make sure
tools|Options|view tab|page breaks is unchecked.

An alternative.

add headers to each column
select your range
data|pivottable
follow the wizard until you get to the step with a layout button on it.
Hit that layout button.

drag the button for A, D, E, F to the row range
drag the button for G, H, I, J to the data range

finish up the wizard

Drag the "data" button to the cell directly to its right.

Double click on each of the A, D, E, F headers and turn off the subtotals.

If you like it and need the data as data (not as a pivot table), you can
copy|paste special values and then use some of the techniques at Debra
Dalgleish's site to fill the empty cells with the one above it:

http://www.contextures.com/xlDataEntry02.html


When I have to do this, sometimes I'll create a helper column and concatenate my
columns (but separate by a unique character):

=a2&"."&d2&"."&e2&"."&f2
then drag down.

then use a pivot table to summarize by that column

Convert to values and then do Data|text to columns to separate them again.


Erin Myers wrote:

Thanks, it seems to work great, it just takes a very long time. I went ahead and added to remove screen updating - but it doesn't seem to really speed it up much.

Does anyone have an idea how to speed this code up at all - if not, I can use it, bu tit takes almost an hour to run

Thanks for any other advice, and thankyou for your time thus far,

Erin

--

Dave Peterson