Maybe This:-
Private Sub OptionButton1_Click()
Opt OptionButton1
End Sub
Private Sub OptionButton2_Click()
Opt OptionButton2
End Sub
Private Sub OptionButton3_Click()
Opt OptionButton3
End Sub
Private Sub OptionButton4_Click()
Opt OptionButton4
End Sub
'NB:- Place the code below in basic module:-
Sub Opt(oP As Object)
Select Case True
Case oP.Name = "OptionButton1": Range("D44").Value = 0
Case oP.Name = "OptionButton2": Range("D44").Value = 25
Case oP.Name = "OptionButton3": Range("D44").Value = 50
Case oP.Name = "OptionButton4": Range("D44").Value = 75
End Select
End Sub