The chart shows what it wasn't programmed for

I'm trying to create a chart for evaluating my measurements, but for some reason when I run the code the generated chart decides to show some random data sets (orange and grey shouldnt be there). As in the picture below.
Sn?mek obrazovky 2024-03-07 103944.png

Here is the VBA code:
VBA code.txt

Could you please tell me where's the problem? I'm pretty inexperienced and I just don't see it.

Isn't the loop that says "Add random points" doing this?

The orange lines have 5 points
The grey lines have 5 points

That's the loop that goes from 2 to 6 (5 different steps)

Just delete that loop from the VBA

The active cell is within your data set so when you add the chart it uses the data surrounding the selected cell. Clear all the series after creating the chart, then add the ones you want to see. Or select a cell nowhere near the data before adding the chart.

I tried to play a little with it and it seems like the problem is in this: Set chrt = ws.Shapes.AddChart2(-1, xlXYScatterLines).Chart
It probably automaticaly generates chart with some number it has available (apparently VBA doesn't care that you haven't satated the values which are supposed to be in the chart).

Here's the code without adding any data sests to the chart:

Please Login or Register  to view this content.

Is there a way how to force VBA to not auto-include data sets? Or how to exclude some date sets from the chart?