急求图表数据源改写为相对位置

以下是我录制的一个相对引用的 宏，大致动作含义是指，在鼠标起始位置上，复制上两行的图表及其数据源，然后将复制出的图表数据源改至新的数据位置。
我的目的是希望能将 图表数据源改至的 新数据源 是一个相对位置。
但类似于 ActiveChart.SeriesCollection(1).Values = "=Sheet1!R4C2" 这样的语句，将新数据源位置 绝对锁定在了录制时所选的位置。
请高手出手，能否将 ActiveChart.SeriesCollection(1).Values = "=Sheet1!R4C2"  语句 改写成 相对位置， 具体位置详见附件，急求啊！！！
Sub Macro14()
'
' Macro14 Macro
' 宏由 menghe 录制，时间: 2011-8-4
'
' 快捷键: Ctrl+q
'
    ActiveCell.Offset(-2, 0).Rows("1:2").EntireRow.Select
    Selection.Copy
    ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select
    ActiveSheet.Paste
    ActiveSheet.ChartObjects("图表 121").Activate
    ActiveChart.SeriesCollection(1).Select
    Application.CutCopyMode = False
    ActiveChart.SeriesCollection(1).Values = "=Sheet1!R4C2"
    ActiveWindow.Visible = False
    Windows("Book21.xls").Activate
    ActiveSheet.ChartObjects("图表 122").Activate
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).Values = "=Sheet1!R4C3"
    ActiveWindow.Visible = False
    Windows("Book21.xls").Activate
    ActiveSheet.ChartObjects("图表 123").Activate
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).Values = "=Sheet1!R4C4"
    ActiveWindow.Visible = False
    Windows("Book21.xls").Activate
    ActiveSheet.ChartObjects("图表 124").Activate
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).Values = "=Sheet1!R4C5"
    ActiveWindow.Visible = False
    Windows("Book21.xls").Activate
    ActiveCell.Offset(1, 5).Range("A1").Select
End Sub

顶顶顶DDDDDDDDDDDDDD