Hi
VBA code
Sub ApplyFilter( )
Dim header As Range
Set header = [e21:k21]
’ Create filter
header.AutoFilter
’ Apply filter to show top 10 volume days.
header.AutoFilter 6, “10”, XlAutoFilterOperator.xlTop10Items
End Sub
edit for your file
Regards,
LNV