Sub test()
  Cells.ClearOutline
  ActiveSheet.Outline.SummaryRow = xlAbove
  If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
  RowEnd = ActiveSheet.Range("C65000").End(xlUp).Row - 1
  Range(Cells(1, 3), Cells(RowEnd, 3)).AutoFilter Field:=1, Criteria1:="4", VisibleDropDown:=False
  Set WorkR = Range(Cells(2, 3), Cells(RowEnd, 3)).SpecialCells(xlCellTypeVisible)
  If Not WorkR Is Nothing Then
    For Each sArea In WorkR.Areas
      sArea.EntireRow.Group
    Next
  End If
  If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
End Sub