Ha minden oszlopodban be van kapcsolva az autoszűrő,

Sub NemÜres()
    Selection.AutoFilter Field:=9, Criteria1:="<>"
End Sub

Sub MindetMutat()
    Selection.AutoFilter Field:=9
End Sub

Ha nem, akkor a 9 helyett azt a számot írd, ahányadik a szűrt oszlopok közül az I.

Pl. ha a szűrés az F:M oszlopokban van, akkor 4-et írj a 9 helyére.