Macro filtered in column no fill cells in selected sheets

[NoSparks]

Maybe something like this ?

Sub test_fillnofill()
    Dim i As Integer
    Dim shtArray As Variant
    
shtArray = Array("Sheet1", "Sheet3", "Sheet6")

For i = LBound(shtArray) To UBound(shtArray)
    With Worksheets(shtArray(i))
        If .AutoFilterMode = False Then
            .Range("A2").AutoFilter Field:=1, Operator:=xlFilterNoFill
        Else
            .AutoFilterMode = False
        End If
    End With
Next i

End Sub