using vba coding need to prepare the following chart

i did further like thSub report_card()

Charts.Add
ActiveChart.ChartType = xl3DBarClustered
ActiveChart.SetSourceData Source:=Sheets("sheets 1").Range("a1:e10")
ActiveChart.Location where:=xlLocationAsObject, Name:="sheet1"
If Date = "n/a" Then
MsgBox False
Else
End If
End Sub

but still not getting the desired result.please help.