Fehlermeldung beim Erstellen eines Diagramm

Sub DiagrammErstellen()
Dim sht As Worksheet
Dim LastRow As Long, LastColumn As Long
Set sht = Sheets("Sheet 1")
LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row
LastColumn = sht.Cells(1, sht.Columns.Count).End(xlToLeft).Column
sht.Shapes.AddChart2(201, xlColumnClustered).Select
ActiveChart.SetSourceData Source:=Range(sht.Cells(1, 1), sht.Cells(LastRow, LastColumn))
Application.CutCopyMode = False
'ActiveChart.SetSourceData
ActiveChart.Axes(xlCategory).Select
'Selection.TickLabelPosition = xlLow
End Sub