Cacher is the code snippet organizer for pro developers

Sub Rows_Group1() 'test:add group 2
    row1 = Selection.Row
    row2 = Selection.Row + Selection.Rows.Count - 1
    Rows(row1 & ":" & row2).Select
    Selection.Rows.Group
End Sub

Sub Rows_Group2() 'test:add group 2
    'Rows("110:118").Select
    Rows(row_u_a_d()(0) + 1 & ":" & row_u_a_d()(1)).Select
    Selection.Rows.Group
End Sub

unempty_row_adjacent