Sub Summarise()
Application.ScreenUpdating = False
    Range([A1], [A1].End(xlDown).End(xlToRight)).RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5), Header:=xlYes
    Dim mergeRn As Range, rrow As Range
    With Range([A1], [A1].End(xlDown).End(xlToRight))
        For Each ccol In .Columns
           For i = 3 To ccol.Rows.Count
            Set rrow = ccol.Rows(i)
            If rrow.Value = ccol.Rows(i - 1).Value Then
                If mergeRn Is Nothing Then
                    Set mergeRn = Union(ccol.Rows(i - 1), rrow)
                Else
                    Set mergeRn = Union(mergeRn, rrow)
                End If
            Else
                If Not mergeRn Is Nothing Then
                    Application.DisplayAlerts = False
                    If mergeRn.Cells.Count > 1 Then mergeRn.Merge
                    mergeRn.VerticalAlignment = xlCenter
                    Set mergeRn = Nothing
                    End If
                    Application.DisplayAlerts = True
                End If
            Next i
        Next ccol
        .EntireColumn.AutoFit
    End With
Application.ScreenUpdating = True
End Sub

Sub MakeReport()
  Dim ws As Worksheet, p&(1 To 5), c&, r&, i&
  Set ws = ActiveSheet:  Worksheets.Add after:=Worksheets(Worksheets.Count)
  With ws
    .Cells(1, 1).Resize(1, 5).Copy Cells(1, 1)
    r = 2:  For i = 1 To 5: p(i) = r: Cells(r, i) = .Cells(r, i): Next: r = 3
    Do While Not IsEmpty(.Cells(r, 1))
      If .Cells(r, 5) = Cells(p(5), 5) Then
        r = r + 1
      Else
        p(5) = p(5) + 1: Cells(p(5), 5) = .Cells(r, 5)
        For i = 4 To 1 Step -1
          If Cells(p(i), i) <> .Cells(r, i) Then
            If p(i) <> p(i + 1) - 1 Then Range(Cells(p(i), i), Cells(p(i + 1) - 1, i)).MergeCells = True
            p(i) = p(i + 1): Cells(p(i), i) = .Cells(r, i)
          Else
            Exit For
          End If
        Next
      End If
    Loop
    ActiveSheet.UsedRange.Borders.LineStyle = xlContinuous: Range("A:D").VerticalAlignment = xlCenter: Range("A:E").EntireColumn.AutoFit
  End With
End Sub