Jeff, here's one code. I'm sure you can replicate this for all the other charts.

Code:
Sub AddChart()

    With ActiveSheet.Shapes.AddChart
        .Width = 544.5: .Height = 171.25: .Left = 291
        With .Chart
            .SetSourceData Source:=Range("Sheet1!$B$21:$E$23")
            .ChartType = xlColumnClustered
            .Legend.Delete
            .Axes(xlValue).Delete
            .Axes(xlValue).MajorGridlines.Delete
            .SeriesCollection(1).ApplyDataLabels
        End With
        With ActiveSheet.ChartObjects(.Name).Border
            .Color = 0
            .LineStyle = 1
            .Weight = 2.6
        End With
    End With
    
End Sub
And the code to delete all charts in the active sheet is
Code:
Activesheet.ChartObjects.Delete