Are you trying to do something like this?
Option Explicit
Private Sub OptionButton1_Click()
Me.ChartObjects("Chart 1").Activate
ActiveChart.SetSourceData _
Source:=Sheets("Chart Data").Range("A1:B31"), PlotBy:=xlColumns
End Sub
Private Sub OptionButton2_Click()
Me.ChartObjects("Chart 1").Activate
ActiveChart.SetSourceData _
Source:=Sheets("Chart Data").Range("D1:E16"), PlotBy:=xlColumns
End Sub
Private Sub OptionButton3_Click()
Me.ChartObjects("Chart 1").Activate
ActiveChart.SetSourceData _
Source:=Sheets("Chart Data").Range("G1:H7"), PlotBy:=xlColumns
End Sub
Refer to the attachment.