Make Copy code easier

Hallo,
I use a Line that will copy information frome one sheet to another.
But there is Little delay in it ...can that be the vault of the code??
is there easy way to make my code easy or compacter?

    'Factuurnummer/invoice Number Check'
        Sheets("Export Freshbooks").Range("B2:B1000").Copy Destination:=Sheets("Output").Range("B2")
        

    'FactuurDatum/Invoice Date Check'
        Sheets("Export Freshbooks").Range("C2:C1250").Copy Destination:=Sheets("Output").Range("C2")
        
        
        Application.ScreenUpdating = False
             Sheets("Export Freshbooks").Range("C:C").NumberFormat = "dd/mm/yyyy;@"
             Sheets("Output").Range("C:C").Value = Range("C:C").Value
        Application.ScreenUpdating = True


    'Items Check'
        Sheets("Export Freshbooks").Range("G2:G1250").Copy Destination:=Sheets("Output").Range("E2")

    'Items Uitleg omschrijving Check'
        Sheets("Export Freshbooks").Range("H2:H1250").Copy Destination:=Sheets("Output").Range("D2")
    
    
    'Line cost/ Factuurbedrag INCL>BTW'
         With Sheets("Output")
             Sheets("Export Freshbooks").Range("N2:N1250").Copy
             Sheets("Output").Range("G2").PasteSpecial (xlPasteValues)
         End With
    
        
    'Tax1 BTW Bedrag Check'
        With Sheets("Output")
             Sheets("Export Freshbooks").Range("L2:L1250").Copy
             Sheets("Output").Range("I2:I1250").PasteSpecial (xlPasteValues)
        End With
        
        
    'Grootboekrekening Gelinkt op ITem Check'
    
        With Sheets("Output")
            Range("J2:J1250").Formula = "=if(ISERROR(VLOOKUP(E2,Grootboekrekeningen!A:C,2)),"""",VLOOKUP(E2,Grootboekrekeningen!A:C,2))"
        End With
        
        
    
    'Debiteuren Check'
    
        With Sheets("Output")
            .Range("A2:A" & .Cells(Rows.Count, "B").End(xlUp).Row).Formula = _
            "=IFERROR(VLOOKUP('Export Freshbooks'!A2,Debiteuren!A:B,2,0),"""")"
        End With

Instead of:

 With Sheets("Output")
             Sheets("Export Freshbooks").Range("N2:N1250").Copy
             Sheets("Output").Range("G2").PasteSpecial (xlPasteValues)
         End With

This is usually quicker

Sheets("Output").Range("G2:G1250").Value = Sheets("Export Freshbooks").Range("N2:N1250").Value

Okey thank you.. i can use that now for more of my lines

is there a way to set a rang with out the number.... Example. .Range("G2:G") that it wil go on?

You would normally do something like:

.Range("G2:G" & Range("G" & rows.count).end(xlup).row)

to define a range that goes to the last used cell in a column.