Chart source how to set for Series and Categories

[virmani_munish]

Hi All,

Please help, with the below code chart Series is Month whereas i want Months in the Horizontal Category. I cant do Switch row/column as this is in the code.
Sub test()

'Worksheets("chartSheet").Range(Range("C3"), Range("C3").Offset(Application.Match(Worksheets("Datasheet").Range("D3"), Worksheets("chartSheet").Range("C3:C15"), 0) - 1, 2)).Select

Sheets("chartSheet").Range("C3").Select
Set WiRate_DealSize = Worksheets("chartSheet").Range(Range("C3"), Range("C3").Offset(Application.Match(Worksheets("Datasheet").Range("D3"), Worksheets("chartSheet").Range("C3:C15"), 0) - 1, 4))
Debug.Print WiRate_DealSize.Address
Worksheets("chartSheet").Shapes("Chart 1").Chart.SetSourceData WiRate_DealSize




End Sub

But i want below in the chart source, Months in Horizontal Category and range in Series.