Chart Values Change

Sub ChartFix()

'use RC notation
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.PlotArea.Select
N = Sheets("Income Calc").Range("C15") ' Plot Row
RowNum = Trim(Str(N))

Values1 = "='Income Calc'!R28C7:R" & RowNum & "C7"
Values2 = "='Income Calc'!R28C16:R" & RowNum & "C16"
Values3 = "='Income Calc'!R28C13:R" & RowNum & "C13"

Values4 = "='Income Calc'!R28C20:R" & RowNum & "C20"

Values5 = "='Income Calc'!R28C15:R" & RowNum & "C15"
XValues1 = "='Income Calc'!R28C2:R" & RowNum & "C2"

ActiveChart.SeriesCollection(1).Values = Values1
ActiveChart.SeriesCollection(2).Values = Values2
ActiveChart.SeriesCollection(3).Values = Values3
ActiveChart.SeriesCollection(4).Values = Values4
ActiveChart.SeriesCollection(5).Values = Values5
ActiveChart.SeriesCollection(1).XValues = XValues1

End Sub