Sub 차트생성()

    ActiveSheet.Shapes.AddChart2( _
                Style:=-1, _
                XlChartType:=xlColumnClustered).Select
    ActiveChart.SetSourceData Source:=Range("B5").CurrentRegion

End Sub
