Clear contents for filtered range only

Hello everyone
I have the range("A1:A24") .. A1 has a header .. And A2:A24 has values
I filtered this range so there are hidden cells ..
How can I clear the contents of these hidden filtered cells without using loops
As I know it could be done using loops and test if cell row is hidden then to clear the contents

Simply I am searching for verse way as SpecialCells(xltypeVisible)
Thanks advanced for help

Why don't to reverse your autofilter condition to show Non Matching Results and use Visiblecells property to clear the cells.

That's a great idea .. but in fact it is not the purpose
I need to set Rng for hidden cells as a result of filter ..

Another point is it possible to clear the contents for the whole range ("A2:A24") (visible and Non-visible) without cancelling filter and without using loops

Check the below code to know how to clear autofilter visible cells.

Sub ClearFilteredContents()

With ActiveSheet
    .AutoFilterMode = False
    Set rFilter = .Range("$A$1").CurrentRegion
    rFilter.AutoFilter Field:=2, Criteria1:=1
    
    If Application.WorksheetFunction.Subtotal(3, rFilter.Columns(1)) > 1 Then
        Set rFilter = rFilter.Offset(1).Resize(rFilter.Rows.Count - 1)
        rFilter.SpecialCells(xlCellTypeVisible).ClearContents
    End If
    
    .AutoFilterMode = False
End With

End Sub

Reverse the same logic Criteria1:=1 to Criteria1:="<>1" to get the autofilter hidden cells and clear the filtered data.

Thank you very much
That a great step to reach the goal (half-way)

Is it possible to reverse the criteria without knowing it ??
I mean suppose the criteria was "<50" ... Is it possible to store this criteria without knowing it .... let excel vba store it and then reverse the action to complete the task

Here is the revised code with sample file

Sub ClearFilteredContents()
Dim sCrit As String, sReverse As String

sCrit = InputBox("Enter Filter Value", "Filter Value Required", ">50")
sReverse = IIf(InStr(1, sCrit, "<"), Replace(sCrit, "<", ">"), Replace(sCrit, ">", "<"))

Application.ScreenUpdating = False

With ActiveSheet
    .AutoFilterMode = False
    Set rFilter = .Range("$A$1").CurrentRegion
    rFilter.AutoFilter Field:=2, Criteria1:=sReverse
    
    If Application.WorksheetFunction.Subtotal(3, rFilter.Columns(1)) > 1 Then
        Set rFilter = rFilter.Offset(1).Resize(rFilter.Rows.Count - 1)
        rFilter.SpecialCells(xlCellTypeVisible).ClearContents
    End If
    
    rFilter.AutoFilter Field:=2, Criteria1:=sCrit
End With

Application.ScreenUpdating = True

MsgBox "Autofilter Hidden Rows data removed successfully", vbInformation, "Remove Filter and Check"

End Sub

Thank you very very much for these wonderful solutions ...
In fact the codes are very great ..

Can I ask for last request ..?
Suppose I have the range filtered but I don't know the criteria applied to that range .. How can I know the criteria applied using vba?

Originally Posted by YasserKhalil

I have the range filtered but I don't know the criteria applied to that range .. How can I know the criteria applied using vba?

Check the below links which will give you some idea about how to get it in VBA.

http://www.ozgrid.com/VBA/autofilter-criteria.htm

http://datapigtechnologies.com/blog/...in-status-bar/

http://www.exceltip.com/general-topi...oft-excel.html

Thank you very much Mr. Akuini for this great code .. It is wonderful and very easy at the same time
Thanks a lot Mr. Sixthsense for these useful and great links that gave me ideas about the issue
Best Regards