Dialogsheets - buttons

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