Andy

Thanks for that, have replaced as you have indicated, and it does run more
smoothly!

As I said, this macro was *recorded*, something even *I* can do!
Editing is another matter!

Thanks again.

George Gee


*Andy Brown* has posted this message:

"George Gee" wrote in message
...
I suppose it would help if I included the macro!

Range("A5:G5").Select
Selection.Insert Shift:=xlDown
Range("B3:F3").Select
Selection.Copy

For efficiency, you should take out as much physical selection as
poss. Forex, replace the last 2 lines with:

Range("B3:F3").Copy

Rgds,
Andy