Slow running macro

[knlyn]

I have made a macro, but I think it runs too slow. I found out which part that ran slow. My findings was that the block below used 6 sec.

Does anyone have a suggestion to speed it up ?

Worksheets("Oppsummering Freia").Cells(TargetRow, 3).Value = Worksheets("Registrering").Cells(6, 3).Value
Worksheets("Oppsummering Freia").Cells(TargetRow, 4).Value = Worksheets("Registrering").Cells(23, 3).Value
Worksheets("Oppsummering Freia").Cells(TargetRow, 5).Value = Worksheets("Registrering").Cells(24, 3).Value
Worksheets("Oppsummering Freia").Cells(TargetRow, 6).Value = Worksheets("Registrering").Cells(16, 3).Value
Worksheets("Oppsummering Freia").Cells(TargetRow, 7).Value = Worksheets("Registrering").Cells(17, 3).Value
Worksheets("Oppsummering Freia").Cells(TargetRow, 8).Value = Worksheets("Registrering").Cells(18, 3).Value
Worksheets("Oppsummering Freia").Cells(TargetRow, 9).Value = Worksheets("Registrering").Cells(19, 3).Value
Worksheets("Oppsummering Freia").Cells(TargetRow, 10).Value = Worksheets("Registrering").Cells(30, 3).Value
Worksheets("Oppsummering Freia").Cells(TargetRow, 11).Value = Worksheets("Registrering").Cells(33, 3).Value
Worksheets("Oppsummering Freia").Cells(TargetRow, 12).Value = Worksheets("Registrering").Cells(22, 9).Value
Worksheets("Oppsummering Freia").Cells(TargetRow, 13).Value = Worksheets("Registrering").Cells(23, 9).Value
Worksheets("Oppsummering Freia").Cells(TargetRow, 14).Value = Worksheets("Registrering").Cells(24, 9).Value​

Worksheets("Oppsummering Freia").Cells(TargetRow, 15).Value = Worksheets("Registrering").Cells(26, 9).Value​

(The block moves data from one sheet to another)

Thanks for any help.

Knut

 

[VoG]

Try

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'
'your code here
'

Application.ScreenUpdating = True
Application.Calculation = xlAutomatic

 

[knlyn]

Thanks a lott, now I am down to 0,5 sec !!



Have a nice day!!

Knut