Mere detaljeret makro kode

Hej
Jeg har følgende makro på en knap i en excell template. Templaten bruger jeg til at udfylde linier med et udbud af varer.
Når jeg har lavet udbuddet, klikker jeg på Finish og der laves en kopi af templaten som vedhæftes en email og gemmes i en mappe på c drevet. Fungerer super duper...MEN nu kunne jeg godt tænke mig at jeg ud af 15 linier kunne vælge linie 1,3,7 og så var det disse linier der blev lavet en kopi af i et nyt ark, istedet for at det var hele arket der blev kopieret og vedhæftet. Samtidig ville det være dejligt at jeg kunne bestemme hvilke felter der skulle kopieres også, således at det ikke var felter indeholdende info som jeg ikke vil vise frem til den jeg mailer arket til.

Kan det lade sig gøre at bygge ind i den eksisterende kode?
På forhånd tak.
Mvh.

Sub Finish()
    Dim Navn As String
    'Finish Macro

    '
    Cells.Select
    Selection.Copy
    Workbooks.Add
    Cells.Select
    Cells.Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
                          False, Transpose:=False
    Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
                          False, Transpose:=False
    With ActiveSheet.PageSetup
        .Orientation = xlLandscape
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    Range("G11").Select
    Navn = Format(Now(), "dd-mm-yyyy hh_nn_ss")    ' der tillades ikke colon (:) i filnavnet, ret selv i formater

    If Dir("C:\Naal", vbDirectory) = "" Then
        Set fs = CreateObject("Scripting.FileSystemObject")
        fs.createfolder ("C:\Mappe")
    End If


    ActiveWorkbook.SaveAs Filename:="C:\Mappe\" & Navn & ".xls"

    If Application.MailSystem <> xlNoMailSystem Then    ' tjekker om der et mailsystem
        With ActiveWorkbook
            .SendMail _
                    Recipients:="", _
        Subject:="Titel"
        End With
        Application.MailLogoff
    Else
        MsgBox "Microsoft postsystem er ikke installeret.", vbInformation, "Postmeddelelse"
    End If

    ActiveWorkbook.Close


End Sub