Sub test()
  If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
  Range("A1:A65000").AutoFilter Field:= 1 , Criteria1:="", VisibleDropDown:=False
  Set WorkR = Range("A2:A" & ActiveSheet.AutoFilter.Range.Row + _
    ActiveSheet.AutoFilter.Range.EntireRow.Count -  1 ).SpecialCells(xlCellTypeVisible)
  If Not WorkR Is Nothing Then
    For Each sArea In WorkR.Areas
      Rows(sArea.Row & ":" & sArea.Row + sArea.EntireRow.Count -  1 ).OutlineLevel =  2 
    Next
  End If
  If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
End Sub