Sorry, I don't understand.
Maybe this guess is closer.

Sub test2_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
        ElseIf (ActiveSheet.AutoFilterMode And ActiveSheet.FilterMode) Then
            On Error Resume Next
            .ShowAllData
            On Error GoTo 0
        Else
            .Range("A2").AutoFilter Field:=1, Operator:=xlFilterNoFill
        End If
    End With
Next i

End Sub