Sub merge_some_row_data()
    Dim rw As Long, lr As Long, s As Long, str As String

    Application.ScreenUpdating = False
    With ActiveSheet.Cells(1, 1).CurrentRegion
        With .Cells(7, 1).Resize(.Rows.Count - 6, .Columns.Count)
            .Cells.Sort Key1:=.Columns(5), Order1:=xlAscending, _
                        Key2:=.Columns(1), Order2:=xlAscending, _
                        Orientation:=xlTopToBottom, Header:=xlNo
        End With
        lr = .Rows.Count
        For rw = .Rows.Count To 7 Step -1
            If .Cells(rw,"E").Value2 <> .Cells(rw - 1,"E").Value2 And rw < lr Then
                .Cells(rw,"G") = Application.Sum(.Range(.Cells(rw,"G"), .Cells(lr,"G")))
                str = vbNullString
                For s = rw To lr
                    str = str & Chr(59) & .Cells(s,"A").Text    'Chr(59) is the ASCII code for a semi-colon
                Next s
                .Cells(rw,"A") = Mid(str, 2)  'truncate off the firsty semi-colon
                .Cells(rw + 1, 1).Resize(lr - rw, 1).EntireRow.Delete
                lr = rw - 1
            End If
        Next rw
    End With
    Application.ScreenUpdating = True
End Sub