tavopz respondió:
Quizás si reemplazas la línea: ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range(Cells(1, 1), Cells(n, 4)), PlotBy:=xlColumns Por: ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:A"& n &",D1:D"&n), PlotBy:=xlColumns