VBA batch generate bar chart code

Sub Hong3 ()
‘
' Macro 3 Macro D
Dim A, B as Integer
Dim Str as String
For a = 227 to 947 Step 15
b = A + 5
str = "sheet1! B "+ CStr (a) +": G "+ CStr (b)
SH = ActiveSheet.Shapes.AddChart2 (216, xlbarclustered)
Sh. Select
Activechart.setsourcedata Source:=range (str)
Activechart.setelement (Msoelementcharttitlenone)
Activechart.setelement (Msoelementprimaryvaluegridlinesnone)
Activechart.setelement (Msoelementlegendright)
Activechart.setelement (Msoelementprimaryvalueaxisnone)
Activechart.hasaxis (xlcategory) = True
With SH
. Top = Range ("J" + CSTR (A-1)). Top
. left = Range ("J" + CSTR (A-1)). Left
End with

Activechart.axes (xlcategory). Select
Selection.majortickmark = Xloutside
Activechart.setelement (Msoelementdatalabeloutsideend)
Next A
End Sub

VBA batch generate bar chart code