vba - テーブルに基づいて折れ線グラフを更新する

Question

各折れ線グラフの最大最小の表があります。テーブルから各折れ線グラフ (合計 40) を更新するマクロを作成したいと考えています。お知らせ下さい。

これが私がこれまでに持っているものです。VBAの書き方を学び始めているので、書き方が悪いと確信しています。

Sub Update_Slope()

    With Chart(2).Axes(xlValue, xlPrimary)
        .MaximumScale = ActiveSheet.Range("F58").Value
            ' Constant value
        .MinimumScale = ActiveSheet.Range("F68").Value
            ' Constant Value

    With Chart(4).Axes(xlValue, xlPrimary)
        .MaximumScale = ActiveSheet.Range("F59").Value
            ' Constant value
        .MinimumScale = ActiveSheet.Range("F69").Value
            ' Constant Value
    End With
End Sub