How to GROUP in VBA

[tuongtu3]

Hello All,
I'm looking for VBA/Code to Group and below is sample Macro I make:
In column A2 is number "0" then start looking at cell A3 for number "1" and group together then stop at number "0" and so on until last row

Sub Macro4()

    Rows("3:7").Select
    Selection.Rows.Group
    
    Rows("9:15").Select
    Selection.Rows.Group
    
    Rows("17:26").Select
    Selection.Rows.Group

    Rows("28:34").Select
    Selection.Rows.Group

End Sub

Regards,
tt3