VBA エクセル ラインマーカーグラフチャート作成

Sub ファンチャートの作成()
'グラフシートにファンチャートを作成する
    With Charts.Add
        .ChartType = xlLineMarkers
        .SetSourceData Source:=Sheets("ファンチャート").Range("A4:A23,E4:G23")
        .PlotBy = xlRows
        .HasTitle = True
        .ChartTitle.Characters.Text = "売店売上ファンチャート"
    End With
End Sub