Optimering af kopiering

Hej

Jeg har et regneark med 1300 linier og 25 kolonner, dataværdierne (ikke formelerne) vil jeg gerne kopiere over i et andet ark når jeg trykker på en knap, men det tager 20 min, hvordan kan jeg optimere det, her er min kode.

Det tager "kun" 10 sek. at komme til Do Until linien så det er loopet der tager en frygtelig tid.

Sub Macro1()
    Application.ScreenUpdating = False
   
    Tidspunkt = Hour(Now()) & "." & Minute(Now())
   
    Arknavn = "Brutto " & Worksheets("Teknik").Range("E3") & " " & Tidspunkt
    Worksheets("Brutto").Copy After:=Worksheets("Igangværende arbejde")
    Worksheets("Brutto (2)").Name = Arknavn
   
    sag = 2
    Indsæt_sag = 2
    Do Until Worksheets("Alle sager inkl. beregninger").Range("A" & sag) = ""
        Worksheets("Alle sager inkl. beregninger").Range("A" & sag & ":Y" & sag).Copy
        Worksheets(Arknavn).Range("A" & Indsæt_sag & ":Y" & Indsæt_sag).Select
        Selection.Insert Shift:=xlDown
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
       
        Indsæt_sag = Indsæt_sag + 1
        sag = sag + 1
    Loop
   
    Application.ScreenUpdating = True
End Sub