How do I save a WorkBook using only select cells macro

Hey,

I need to save a Workbook using only selected sheets....

I have this at the moment which is working, but it is saving the whole workbook, and I need it to work with only the range "A1:K40"

Sub SaveInvWithNewName()
    Dim NewInv As Variant
    ActiveSheet.Copy
    NewInv = "C:\Invoices\LeeValley-Inv" & Range("F2").Value & ".xlsx"
    ActiveWorkbook.SaveAs NewInv
    ActiveWorkbook.Close
    MsgBox "File Saved to C:\Invoices"
    NextInvoice
End Sub

I tried this but didnt work - any ideas?

Sub SaveInvWithNewName()
    Dim NewInv As Variant
    ActiveSheet.Copy
    NewInv = "C:\Invoices\LeeValley-Inv" & Range("F2").Value & ".xlsx"
    ActiveWorkbook.Range("A1:K40").SaveAs NewInv
    ActiveWorkbook.Close
    MsgBox "File Saved to C:\Invoices"
    NextInvoice
End Sub