Here's a macro I use to freeze the top row, apply the filter, and autowidth columns to contents to a maximum of 40 pixels wide. Assign it to a button in the ribbon or QAT.

Sub FreezeColumnFilter()

Dim r As Range

Dim mCell As Range

Set r = ActiveCell

If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False

Range("A2").Select

With ActiveWindow

.FreezePanes = False

.ScrollRow = 1

.ScrollColumn = 1

.FreezePanes = True

.ScrollRow = r.Row

End With

r.Select

With ActiveSheet

.AutoFilterMode = False

.Rows("1:1").AutoFilter

End With

For Each mCell In ActiveSheet.UsedRange.Rows(1).Cells

mCell.EntireColumn.AutoFit

If mCell.EntireColumn.ColumnWidth > 40 Then _

mCell.EntireColumn.ColumnWidth = 40

Next mCell

End Sub