Group Rows Based on two values in a Column A

I'm trying to create a macro to group two rows but having a lot of trouble doing it. in total there about over 1,000 rows that im grouping.

Here a sample of wha I'm trying to do. If anyone can help that would be great becuase doing this manually is driving me nuts .


Book1.xls

Do you need to hide or get rid of the original rows? Or can they stay?

whichever is easier. I can always hide them after np.

Hope this helps.

Sub group_rows()

Dim i As Integer

Application.ScreenUpdating = False

i = 1

Range("A2").Select

Do Until IsEmpty(ActiveCell)

    Do Until IsEmpty(ActiveCell.Offset(1, i))

        ActiveCell.Offset(0, i).Formula = "=sum(" & ActiveCell.Offset(1, i).Address & ":" _
            & ActiveCell.Offset(2, i).Address & ")"
    
        i = i + 1

    Loop
    
ActiveCell.Offset(1, 0).EntireRow.Hidden = True

ActiveCell.Offset(2, 0).EntireRow.Hidden = True

ActiveCell.Offset(3, 0).Select

i = 1

Loop

End Sub

This Works but i need the rows to stay and also have the plus on the side to open or hide when i chose.

is there anyway i can use.....Selection.Rows.Group
in this formula?

Try this:

Sub group_rows()

Dim i As Integer

Application.ScreenUpdating = False

i = 1

Range("A2").Select

Do Until IsEmpty(ActiveCell)

    Do Until IsEmpty(ActiveCell.Offset(1, i))

        ActiveCell.Offset(0, i).Formula = "=sum(" & ActiveCell.Offset(1, i).Address & ":" _
            & ActiveCell.Offset(2, i).Address & ")"
    
        i = i + 1

    Loop
    
ActiveCell.Offset(1, 0).Select

Range(ActiveCell.Address & ":" & ActiveCell.Offset(1, 0).Address).Rows.Group

ActiveCell.Offset(2, 0).Select

i = 1

Loop

End Sub