codice:
Sub filtro()
Range("C:L").AutoFilter 4, VisibleDropDown:=False
End Sub