Dialogsheets - buttons

[vovo]

Hallo,

ik lig al een tijdje te knoeien met deze VBA :

Sub Bonieuweklant()

    Application.Goto Reference:="R1C1"
    DialogSheets("dialog2").Show
    Sheets("CUSTOMERS").Select
    [B]'code invoegen wanneer cancel, macro stopt ?[/B]    
        'colonne B
    Application.Goto Reference:="R2500C2"
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
   
        'Nr sap
    ActiveCell.FormulaR1C1 = DialogSheets("dialog2").EditBoxes("Edit Box 6").Caption
              
    'Colonne C : merk
        ActiveCell.Offset(0, 1).Range("A1").Select
        Application.CutCopyMode = False
        If DialogSheets("dialog2").OptionButtons("option button 19").Value = 1 Then
        ActiveCell.FormulaR1C1 = "Glasurit"
        End If
        If DialogSheets("dialog2").OptionButtons("option button 20").Value = 1 Then
        ActiveCell.FormulaR1C1 = "RM"
        End If
                
    'Colonne D : naam
        ActiveCell.Offset(0, 1).Range("A1").Select
        ActiveCell.FormulaR1C1 = DialogSheets("dialog2").EditBoxes("Edit Box 11").Caption
        DialogSheets("dialog2").EditBoxes("Edit Box 11").Caption = ""
            
    'Colonne E : n° adres
        ActiveCell.Offset(0, 1).Range("A1").Select
        ActiveCell.FormulaR1C1 = DialogSheets("dialog2").EditBoxes("Edit Box 13").Caption
         DialogSheets("dialog2").EditBoxes("Edit Box 13").Caption = ""
            
         
    ' Colonne F : huisnr
        ActiveCell.Offset(0, 1).Range("A1").Select
        ActiveCell.FormulaR1C1 = DialogSheets("dialog2").EditBoxes("Edit Box 14").Caption
         DialogSheets("dialog2").EditBoxes("Edit Box 14").Caption = ""
        
        
     'Colonne G : PC
        ActiveCell.Offset(0, 1).Range("A1").Select
        ActiveCell.FormulaR1C1 = DialogSheets("dialog2").EditBoxes("Edit Box 16").Caption
        DialogSheets("dialog2").EditBoxes("Edit Box 16").Caption = ""
        
    'Colonne H : Plaats
        ActiveCell.Offset(0, 1).Range("A1").Select
        ActiveCell.FormulaR1C1 = DialogSheets("dialog2").EditBoxes("Edit Box 17").Caption
        DialogSheets("dialog2").EditBoxes("Edit Box 17").Caption = ""
        
    'Colonne I : Taalcode
        ActiveCell.Offset(0, 1).Range("A1").Select
        Application.CutCopyMode = False
        If DialogSheets("dialog2").OptionButtons("option button 8").Value = 1 Then
        ActiveCell.FormulaR1C1 = "FR"
        End If
        If DialogSheets("dialog2").OptionButtons("option button 9").Value = 1 Then
        ActiveCell.FormulaR1C1 = "NL"
        End If
         
               
    'Einde en sorteren
    Application.Goto Reference:="R1C2:R5000C10"
    Selection.Sort Key1:=Range("d2"), Order1:=xlAscending, Key2:=Range _
        ("G2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, _
        MatchCase:=False, Orientation:=xlTopToBottom
    Range("B2").Select
    Sheets("BO").Select
    Application.Goto Reference:="R2500C2"
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    DialogSheets("dialog2").OptionButtons("=Option Button 2 ").Value = 1
       
End Sub

Hoe kan je makkelijkst ervoor zorgen wanneer ik "cancel" zou kiezen, de macro dan stopt zonder dat er verder iets gebeurt? Wanneer ik nu op cancel druk, wordt de lijst alsnog aangevuld?

Alvast bedankt.