How to keep Inserting Rows Command from moving other cells in a sheet

[Paul_Hossler]

Try these

Few items to be aware of

1. The button name has to end with 0, 1, 2, or 3

2. The Group Box and embedded OP have to be in one cell

Look at the

Option Explicit

'This process a OB click and uses the current top left cell to determine row number to update
Sub OB_Clicked()
    Dim R As Long
    R = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row
    
    Application.EnableEvents = False
        
    Select Case Right(Application.Caller, 1)
        Case "0":      Range("A" & R).Value = 0
        Case "1":      Range("A" & R).Value = 25
        Case "2":      Range("A" & R).Value = 50
        Case "3":      Range("A" & R).Value = 75
    End Select
    
    Application.EnableEvents = True
    
End Sub


'This assigns the macro "OB_Clicked" to all Form Option Buttons on the Activesheet
Sub SetAllOptionButtonsOnAction()
    Dim oShape As Shape
    
    For Each oShape In ActiveSheet.Shapes
        If oShape.Type = msoFormControl Then
            If oShape.FormControlType = xlOptionButton Then
                oShape.OnAction = "OB_Clicked"
            End If
        End If
    Next
End Sub

Edit -- put the right file in this time