Dim myChart As Chart
Set myChart = ActiveSheet.Charts.Add

myChart.SerieCollection(1).Name = "Your serie's name"
myChart.SerieCollection(1).Values = "=" & myWorksheet.name & "!&" & COL_START & "$" & LINE_START & ":$" & COL_END & "$" & LINE_END 
myChart.SerieCollection(1).XValues "=" & myWorksheet.name & "!&" & COL_START & "$" & LINE_HEADER & ":$" & COL_END & "$" & 
LINE_HEADER
This will create a chart with one collection that can have many values per serie.

You can find a lot of example on the web.