Instead of using radio buttons from the control toolbox, I have created a radio button type of group within 3 cells the code is as follows:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then [C1,E1].ClearContents
If Target.Address = "$C$1" Then...