Hi All!

I wrote a little copy and paste macro in order to paste an illustration over the course of a giant workbook. In the beginning it looks like it is running fine, then begins to slow down over time. It's been running for 7 hours, and Excel is using about 98% of my processor.

With the macro below, I highlight the cell I wish to copy and paste (this cell has the illustration in it and is located in cell A4), then proceed to run the macro. It then pastes to each 4th line in the workbook.

I've already formatted the data using a different cut/paste macro over the course of 60,000 lines to move the data around with no problems. This seems that the illustration's continuous pasting really doesn't go over well!

If there are any questions, please ask. Any help would be greatly appreciated! Thank you!


Sub Macro1()

Count = 17000
Do Until Count = 0
Selection.Copy
ActiveCell.Offset(1, 0).Range("A4").Select
ActiveSheet.paste
Count = Count - 1
Loop

End Sub