Excel VBA 1 pagina opslaan dmv macro als nieuw werkblad

[Diniz]

Ik wil een selectie van 1 pagina opslaan met een macro als nieuw werkblad zonder dat macro's etc mee gekopieerd worden.

Public Sub fun_Archiveren()

Dim WorkbookAdminapp As Workbook
Dim WerbladAdminapp As Worksheet


    str_Filename = "Factuur_" & dbl_FactuurNummer & "_" & str_NaamKlant & "_" & dte_FactuurDatum
    str_Locatie = "G:\Wissema Admin\"
    str_Extension = ".xlsx"
    
    Set WorkbookAdminapp = ActiveWorkbook
    
    Sheets("Factuur").Select
    Range("A1:I50").Copy
    
    Application.DisplayAlerts = False
    
    ActiveWorkbook.SaveAs str_Locatie & str_Filename & str_Extension
    
    Application.DisplayAlerts = True
    
End Sub

Met bovenstaande code kopieert hij de gehele werkblad "Factuur" naar het nieuwe bestand, dus niet alleen de selectie van de eerste pagina. Hoe los ik dit op?

 

[jolivanes]

Sub test()
    ActiveWorkbook.Sheets("Sheet1").Range("A1:A40").Copy   '<---- ??????????
    ActiveSheet.Paste Destination:=Workbooks.Add(xlWorksheet).Sheets("Sheet1").Range("A1")
End Sub