Sub Proba()
Dim i As Long, x As Long, y As Long, z As Long, j As Long
Dim a, b As Currency
Dim ob As Object
Dim st As String
i = Cells(Rows.Count,  1 ).End(xlUp).Row
j =  1 
For x =  2  To i
    
    Select Case Cells(x,  1 ).Interior.ColorIndex
    Case  34 
        y = x
        Do
            x = x +  1 
        Loop Until Cells(x,  1 ).Interior.ColorIndex =  34 
        For z = y To x
            a = Cells(z,  8 ).Left -  11 . 25  /  2  - (Cells(z,  8 ).Left - Cells(z,  7 ).Left) /  2 
            b = Cells(z +  1 ,  7 ).Top -  11 . 25  /  2  - (Cells(z +  1 ,  7 ).Top - Cells(z,  7 ).Top) /  2  +  1 
            Workbooks("OleObect.xls").Worksheets("Ëèñò1").OLEObjects.Add _
                (ClassType:="Forms.OptionButton.1", _
                Link:=False, DisplayAsIcon:=False, Left:=a, Top:=b, _
                Width:= 11 . 25 , Height:= 11 . 25 ).Select
            Selection.LinkedCell = "F" & z
            Cells(z,  6 ).Select
            Cells(z,  6 ).Value = False
            Cells(z,  5 ).FormulaR1C1 = "=IF(RC[1] = TRUE,RC[-2]*RC[-1],0)"
        Next z
        j = j +  1 
        
    Case xlNone
        a = Cells(x,  8 ).Left -  11 . 25  /  2  - (Cells(x,  8 ).Left - Cells(x,  7 ).Left) /  2 
        b = Cells(x +  1 ,  7 ).Top -  11 . 25  /  2  - (Cells(x +  1 ,  7 ).Top - Cells(x,  7 ).Top) /  2  +  1 
        Workbooks("OleObect.xls").Worksheets("Ëèñò1").OLEObjects.Add _
        (ClassType:="Forms.CheckBox.1", _
            Link:=False, DisplayAsIcon:=False, Left:=a, Top:=b, _
            Width:= 11 . 25 , Height:= 11 . 25 ).Select
        Selection.LinkedCell = "F" & x
        Cells(x,  6 ).Select
        Cells(x,  6 ).Value = False
        Cells(x,  5 ).FormulaR1C1 = "=IF(RC[1] = TRUE,RC[-2]*RC[-1],0)"
    End Select
Next x
End Sub

Workbooks("OleObect.xls").Worksheets("Ëèñò1")

ActiveWorkbook.ActiveSheet

Private Sub CommandButton1_Click()
    Range("F6:F9").Value = False
End Sub