Group and ungroup certain rows in a protected sheets

[mumin_abdul]

Group Rows (rows 2 through to 7):

    Rows("2:7").Select
    Selection.Rows.Group

Ungroup (row number 3)

    Rows("3:3").Select
    Selection.Rows.Ungroup