Sub Макрос2()
'
' Макрос2 Макрос
'
' Сочетание клавиш: Ctrl+q
'
    Range("J1:L28").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Range("Ëèñò1!$J$1:$L$28")
    ActiveChart.Axes(xlCategory).Select
    ActiveChart.SeriesCollection(1).XValues = "=Ëèñò1!$H$2:$I$28"
    ActiveChart.Legend.Select
    ActiveChart.Legend.Select
    Selection.Position = xlBottom
    ActiveChart.ChartArea.Select
    ActiveChart.Axes(xlValue).MajorGridlines.Select
End Sub