Skift af dataområde på mange diagrammer

Hej
Jeg har en Excel mappe med mange diagrammer på flere ark.
De får alle data fra forskellige kolonner i et stort data ark, eneste kolonne som går igen, det er kolonne A.
Da diagrammerne blev lavet, var der kun data til række 433, nu vil brugerne gerne se flere data, så nu skal de gå til række 865.

Jeg ville gerne kunne bruge en makro, som gik ind og rette tallet 433 til 865.

så f.eks.
ActiveChart.SetSourceData Source:=Sheets("Import data").Range( _
        "A1:A433,K1:N433")
blev til

ActiveChart.SetSourceData Source:=Sheets("Import data").Range( _
        "A1:A865,K1:N865")