On Error Resume Next
Range("E1:E1").SpecialCells(xlCellTypeVisible).Columns.AutoFit
On Error GoTo 0
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range("a1:i200").AutoFilter ActiveCell.Column, ActiveCell.Value, xlAnd
Range("E:E").SpecialCells(xlCellTypeVisible).Columns.AutoFit
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Columns("J:L")) Is Nothing Then Range("E:E").Columns.AutoFit: Range("a1:i200").AutoFilter
End Sub