先日グラフ作成にて判らない事があり、教えて頂いたのですがエラーになってしまいます。引き続き教えて頂きたかったのですが、設定変更が出来ず、結局締め切ってしまいました。再度改めて質問させて下さい。

Private Sub Worksheet_Change(ByVal Target As Range)
    If (Target.Row = 1 And Target.Column > 2) Or Target.Row > 3 Then Exit Sub
    Dim minRow As Long
    Dim maxRow As Long
    Dim s1, s2 As String
    Dim p1, p2 As Integer
    Dim r As String
    Dim i, j As Integer
    
    minRow = 50     '最小行を設定
    maxRow = 100    '最大行を設定
    
    If Range("A1").Value >= minRow And Range("A1").Value <= maxRow _
        And Range("B1").Value >= minRow And Range("B1").Value <= maxRow Then
        For i = 1 To ActiveSheet.ChartObjects.Count
            ActiveSheet.ChartObjects(i).Activate
            With ActiveChart
                For j = 1 To 2
                    s1 = .SeriesCollection(j).Formula
                    p1 = InStrRev(s1, ",")
                    p2 = InStrRev(s1, "!")
                    s2 = Mid(s1, p2 + 1, p1 - p2 - 1)
                    If Cells(j + 1, i).Value = "" Then
                        r = Range(Cells(Range("A1").Value, Range(s2).Column), _
                            Cells(Range("B1").Value, Range(s2).Column)).Address
                    Else
                        r = Range(Range(Cells(j + 1, i).Value & Range("A1").Value), _
                            Range(Cells(j + 1, i).Value & Range("B1").Value)).Address
                    End If
                    .SeriesCollection(j).Formula = Left(s1, p2) & r & ",1)"
                Next j
            End With
        Next
    Else
        MsgBox "正しい範囲を入力してください"
    End If
End Sub