Sub groupandsort()

Application.ScreenUpdating = False
'
'MACRO WILL:
'1: CLEAR ALL PREVIOUS GROUPING
'2: LOOK THROUGH REFERENCE COLUMN FOR H AND GROUP ACCORDINGLY
'NOTE: MACRO WILL WORK IF "H" OR "h" IS USED

'CLEAR ALL PREVIOUS GROUPING FOR ROWS
Cells(1, 1).EntireRow.Select
Selection.Rows.group
ActiveSheet.Rows.Ungroup

'*****SECOND NUMBER IS THE COLUMN NUMBER THE HEADING REFERENCE "H" IS IN
'MACRO WILL WORK IF "H" OR "h" IS USED
Cells(1, 1).Select
Selection.End(xlDown).Select
Count = ActiveCell.Row

'MAKE THE GROUPING BUTTON ON THE TOP INSTEAD OF BOTTOM
With ActiveSheet.Outline
    .SummaryRow = xlAbove
End With

Do Until ActiveCell = ""

head1 = ActiveCell
    If head1 = "H" Or head1 = "h" Then
    row1 = ActiveCell.Row + 1
    ActiveCell.Offset(1, 0).Select
    head2 = ActiveCell
    
'******CHANGE THE "E" & "e" IN THE FOLLOWING LINE
'CHOOSE A LETTER THAT WILL BE USED TO END THE HEADING LABELLING
        Do Until head2 = "H" Or head2 = "h" Or head2 = "E" Or head2 = "e"
        ActiveCell.Offset(1, 0).Select
        head2 = ActiveCell
        Loop
        row2 = ActiveCell.Row - 1
        Count = row2
        Cells.Rows(row1 & ":" & row2).EntireRow.Select
        Selection.Rows.group
    End If
Count = Count + 1

'*****NUMBER IS THE COLUMN NUMBER THE HEADING REFERENCE "H" IS IN
Cells(Count, 1).Select
Loop
Application.ScreenUpdating = True
End Sub