Sub AddChartSheet()
Dim myChart As Chart
Set myChart = Charts.add
With myChart
.SetSourceData Source:=Sheets("Sheet1").range("A3:D7"), _
PlotBy:=xlRows
.ChartType = xlColumnClustered
.HasTitle = True
.ChartTitle.text = "Mangoes"
End With
End Sub