VBA plot a Scatter graph data - X and Y axis data taken from sheet row by row

[p45cal]

See attached.Click button.

Sub blah()
With ActiveSheet.ChartObjects.Add(260, 80, 360, 400).Chart
  .ChartType = xlXYScatterLines
  For Each rw In Sheets("x").Cells(1).CurrentRegion.Rows
    With .SeriesCollection.NewSeries
      .XValues = rw
      .Values = Sheets("Y").Cells(rw.Row, 1).Resize(, rw.Columns.Count)
    End With
  Next rw
End With
End Sub