Issue plotting charts

[TeaTo]

I created 3 separate modules to plot 3 separate graphs/charts based on different data ranges from the same sheet. I also added Command buttons to run the macro's from. Hence, 3 separate macros and 3 separate buttons. My issue is that I have to execute the buttons in a specific order to achieve the desired result. What I am trying to do is to click any random button at any time and have it plot the graph without following any order as it is doing now. The end result is to plot all 3 graphs in the same spreadsheet. I think the runtime error 1004 is being triggered on the range cover but I can be wrong. Any input would be greatly appreciated.

Module#1

Dim rng As Range
Dim cht1 As ChartObject
Dim RngToCover1 As Range
Dim chtob1 As ChartObject

'Set the data range for the chart
Set rng = ActiveSheet.Range("C43:C63,E43:E63, G43:G63")

'Create the chart
Set cht1 = ActiveSheet.ChartObjects.Add( _
Left:=ActiveCell.Left, _
Width:=450, _
Top:=ActiveCell.Top, _
Height:=250)

'Assign the chart its respective data
cht1.Chart.SetSourceData Source:=rng

'Assign (chart type and title)
cht1.Chart.ChartType = xlLine
cht1.Chart.HasTitle = True
cht1.Chart.ChartTitle.Text = "Breakeven Analysis"

'Set a range of data to be covered by the plotted chart
Set RngToCover1 = ActiveSheet.Range("B42:C63")
Set chtob1 = ActiveSheet.ChartObjects(1)
chtob1.Height = RngToCover1.Height ' resize
chtob1.Width = RngToCover1.Width ' resize
chtob1.Top = RngToCover1.Top ' reposition
chtob1.Left = RngToCover1.Left ' reposition

End

End Sub

Module#2

Dim xaxis As Range
Dim yaxis As Range
Dim RngToCover2 As Range
Dim chtob2 As ChartObject
Dim cht2 As ChartObject

Set xaxis = Range("$G$43:$G$43 , $E$43:$E$43")
Set yaxis = Range("$G$26 , $G$30")

'Create a chart

Set cht2 = ActiveSheet.ChartObjects.Add( _
Left:=ActiveCell.Left, _
Width:=450, _
Top:=ActiveCell.Top, _
Height:=250)

'Give chart some data
cht2.Chart.SetSourceData Source:=yaxis
'Determine the chart type
cht2.Chart.ChartType = xl3DColumnClustered
cht2.Chart.HasTitle = True
cht2.Chart.ChartTitle.Text = "Benefit Vs. Cost"
cht2.Chart.HasLegend = False
cht2.Chart.SeriesCollection(1).XValues = xaxis
cht2.Chart.SeriesCollection(1).Values = yaxis

Set RngToCover2 = ActiveSheet.Range("D42:H63")
Set chtob2 = ActiveSheet.ChartObjects(2)
chtob2.Height = RngToCover2.Height ' resize
chtob2.Width = RngToCover2.Width ' resize
chtob2.Top = RngToCover2.Top ' reposition
chtob2.Left = RngToCover2.Left ' reposition

End

Dim s As Series

Set s = cht2.SeriesCollection.NewSeries
With s
.Values = yaxis
.XValues = xaxis

End With

End Sub

Module #3

Dim cht3 As ChartObject
Dim RngToCover3 As Range
Dim chtob3 As ChartObject
Dim chtobt3 As ChartObject

Set cht3 = ActiveSheet.ChartObjects.Add( _
Left:=ActiveCell.Left, _
Width:=450, _
Top:=ActiveCell.Top, _
Height:=250)

cht3.Chart.SetSourceData Source:=Sheets("ROI Analysis").Range("C64:D74"), PlotBy:= _
xlColumns

cht3.Chart.ChartType = xl3DPie
cht3.Chart.ChartTitle.Text = "Benefits Breakdown"
cht3.Chart.ApplyDataLabels xlDataLabelsShowValue, xlDataLabelsPercent
cht3.Chart.SeriesCollection(1).HasLeaderLines = True

With cht3.Chart.SeriesCollection(1).DataLabels
.ShowPercentage = True
.Position = xlLabelPositionBestFit
.Separator = " | "
.ShowValue = False
End With

With cht3.Chart.Legend
.IncludeInLayout = True
.Position = xlLegendPositionRight
.AutoScaleFont = False
.Font.Size = 8
.Top = 5
.Left = 272
.Width = 200
.Height = 400
End With

Set RngToCover3 = ActiveSheet.Range("B64:H79")
Set chtob3 = ActiveSheet.ChartObjects(3)
chtob3.Height = RngToCover3.Height ' resize
chtob3.Width = RngToCover3.Width ' resize
chtob3.Top = RngToCover3.Top ' reposition
chtob3.Left = RngToCover3.Left ' reposition

Set chtobt3 = ActiveSheet.ChartObjects(3)

'Reposition title
With chtobt3.Chart.ChartTitle
.Left = 2
.Top = 2
End With

End Sub