tilføj nye data til en eksisterende graf

Hej eksperter

Jeg har nogle målinger, som foretages hver uge. måleresultaterne placeres i kolonne R og S. måleresultaterne skal placeres i en graf, hvor der uge for uge tilføjes nye tal. tallene er placeret på arket xxx-uge.

jeg har følgende kode:

Public Sub Graf()
Dim Omrade As String
Range("r6").Select
    Range(Selection, Selection.End(xlDown)).Select
    Omrade = Selection.Address
    Charts.Add
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=Sheets("xxx-uge").Range(Omrade), PlotBy:=xlColumns
 
  Sheets("xxx-uge").Select
  Range("s6").Select
    Range(Selection, Selection.End(xlDown)).Select
    Omrade = Selection.Address
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=Sheets("Vand-uge").Range(Omrade), PlotBy:=xlColumns
   
End Sub

Koden stopper i linien hvor kurve nr. 2 skal optegnes. Hvordan får jeg valgt den eksisterende graf, og får tilføjet de nye data?