Hello and welcome,
try this, select the data and execute this macro.
Sub createcolumnchartwithselection()
Set ch = ActiveSheet.Shapes.AddChart2(366, xlColumnClustered)
ActiveSheet.ChartObjects(ch.Name).Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartStyle = 201
End Sub