Sub 차트생성()

    ActiveSheet.Shapes.AddChart2( _
                Style:=-1, _
                XlChartType:=xlColumnClustered).Select
    ActiveChart.SetSourceData Source:=Range("B5").CurrentRegion
    
    With ActiveChart.Parent
    
        .Top = Range("G5").Top
        .Left = Range("G5").Left
        .Height = Range("G5").MergeArea.Height
        .Width = Range("G5").MergeArea.Width
        
    End With

End Sub