Chart via VBA med data fra variabelt antal rækker

Hej alle VBA-eksperter derude:-)
Håber der er en af jer der kan hjælpe mig med følgende problem.
Jeg skal lave en graf med VBA hvor x-aksen er den samme, nemlig 1,2,3 osv op til 51
Værdierne der skal plottes kommer fra et simuleringsprogram og der vil derfor være forskelligt hvor mange dataserier der vil være hver gang der laves en graf - og her er det det går galt for mig.
Jeg har en kode:

With ActiveSheet.ChartObjects.Add
.Chart.SetSourceData Source:=Sheets("Tidsinddelt").Range("A2:AY100")
.Chart.ChartType = xlXYScatter
End With

- problemet er så bare at de 100 vil være variabelt alt efter hvor mange data mit simuleringsprogram spytter ud - Hvordan få jeg lavet koden så dette ændrer sig med antallet af rækker?

Og så lige en anden ting - hvordan får jeg de afsatte punkter i diagrammet til at være samme farve?

Håber der er nogle der kan hjælpe mig:-)