Copy taking an inordinate time to complete

Greetings all,

I am running the following macro to insert a new line with formulas under the header row. The sheet has about 4500 rows of data and 63 columns and is taking 15 seconds to run which seems to me to be a very long time. I added the screen updating, and calculation to see if I could speed it up by turning everything off until it had done what it was supposed to do but that didn't help.

sub addrow()

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    Cells(6, 1).Resize(1, 63).Copy
    Cells(7, 1).Insert shift:=xlDown
    Cells(6, 1).Resize(1, 63).SpecialCells(xlCellTypeConstants).ClearContents
    
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic

end sub

I would appreciate any suggestions as to how to speed this up.

Hello jacob@thepenpoint,

Are you saying it takes 15 seconds to do all 4500 rows or 15 seconds to run the macro you posted? I suspect you mean the former.

The code you have post only inserts a single row. It would be helpful to see the other code that calls this macro.

Hi Leith,

Unfortunately, I actually mean the latter. It is taking 15 seconds to insert the single row. This is the entire macro, it will be assigned to a button for the user to add a line when adding production records.

Hello jacob@thepenpoint,

In that case, can you post a copy of the workbook. I can try it out on my system and see if the results are the same.

Lieth, do you need the entire file or just a sample portion to extrapolate from? And there are 4 fields that are look ups from an external data file that I will just replace with test data.

Hello jacob@thepenpoint,

If you get the same results with the sample then that will be fine. If not, there is probably a problem with the retrieval of the external data. Something like a slow server, or heavy traffic on the network.

Lieth, That looks like the problem. It went to almost instantaneous when I got rid of the Look-ups. Thanks

Thanks Lieth, I'll trim it down and check that first.