Daten erfassen für Charts

Sub Makro1()
Application.ScreenUpdating = False
Sheets(Sheets.Count).Select
'Deklaration
Dim ar As Range
jZeile = 3
iZeile = ActiveSheet.UsedRange.Rows.Count
For Each ar In Range("E:F").SpecialCells(2).Areas                 'ar ist ein Range
With ActiveSheet.Shapes.AddChart.Chart
.ChartType = xlXYScatterSmooth
.SetSourceData Source:=ar
With .Parent
.Top = ar.Cells(1).Top
.Left = ar.Cells(1).Offset(0, 6).Left
.Height = ar.Height
.Width = Range("K1:O1").Width
End With
End With
Next ar
Application.ScreenUpdating = True
MsgBox ("Ihre Daten wurden visualisiert.")
End Sub