Macro que permite filtrar columna por datos que no empiecen por la letra I

Te anexo la macro

Sub Macro4()
'
    u = ActiveSheet.Range("J" & Rows.Count).End(xlUp).Row
    ActiveSheet.Range("A1:Z" & u).AutoFilter Field:=10, Criteria1:="<>I*"
End Sub

.

.

Si ya tienes un filtro aplicado, con lo siguiente podemos quitar el filtro y dejar solamente un filtro.

Sub Macro4()
'
    If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
    ActiveSheet.Range("A1").CurrentRegion.AutoFilter Field:=10, Criteria1:="<>I*"
End Sub

.

.

¡Gracias! , me funcionó, perfecto :)

Dante otra pregunta, podrías por favor indicarme a que hace referencia la expresión 

Field:=10,