i would like to create a new column to insert the max value from the data i have, however, the data are not fixed

Question

This is my attempt. Im able to garner the multiple charts but not the max value in the last column after i run my code.

Sub AddCharts()

    Dim i As Integer