I have used this macro to hide cells that don't have a 1 in column J3:J300. The issue is that there are some 1's and then blanks followed by 1's and so on and the macro hides all rows once a blank cell is observed to the end row 3000

If there is any help I can get making this macro hide ONLY rows that don't have a 1 in column J3:J3000


    ActiveSheet.Range("$J$3:$J$3000").AutoFilter Field:=1, Criteria1:="1"
        
    Range("C3").Select
    
    ActiveWorkbook.Save