Set Filter and for all columns in Row 5 and filter specific Col which all values except zeo and blanks

[howard]

I have a sheet called "Sales"


I want to filter all the columns in row 5 which contains the headings and then filter all the values in the column where heading is "imported Shirts", excluding zeroes and blanks


I have tried to write code to do this but cannot get it to work

 Sub Autofilter()
Sheets("Imported Shirts").Select
    With Range("A5").Range(Selection, Selection.End(xlToRight)).Select
    .Autofilter
     .Range("$A$5:$DZ" & LR).Autofilter Field:=106, Criteria1:=Array _
 ("0.00", "Blanks")
     End With
      End Sub

Your assistance in this regard is most appreciated

 

[howard]

I have also posted on https://www.excelforum.com/showthread.php?t=1270871&p=5094824#post5094824

 

[mumps]

Try:

Sub FilterData()
    With Sheets("Imported Shirts").Range("A5").CurrentRegion
        .Autofilter Field:=106, Criteria1:="<>", Criteria2:="<>0"
     End With
End Sub

 

[howard]

thanks for the help

 

[mumps]

My pleasure.