chart series reshape with macro

[extremis]

hi,

I want to reshape my chart with macro. It's easy, instead of manually clicking on the series and move it one row to the right, I want a macro to do it for me..here my code. I get an error everytime..

ActiveSheet.ChartObjects("Chart 5").Activate
    ActiveChart.SeriesCollection(1).Select
    ActiveSheet.ChartObjects("Chart 5").Activate
    ActiveChart.SeriesCollection(1).Resize = _
        "=SERIES(Tableau!$D$5;Tableau!$E$4:$N$4;Tableau!$E$5:$n$5;1)"
    ActiveSheet.ChartObjects("Chart 5").Activate
    ActiveChart.SeriesCollection(1).Formula = _
        "=SERIES(Tableau!$D$5;Tableau!$E$4:$O$4;Tableau!$E$5:$n$5;1)"