Using Autofilter if criteria is not in list

[nehpets12]

I want to check the Criteria in the filter list and if there is not a 1 then I dont want it to copy anything.

At the moment if there is not a 1 it copies whole sheet!!!

Sheets("Machine Information").Select
    Range("A65536").End(xlUp).Offset(0, 0).Range("A1").Select
    Myfilter = ActiveCell.Row
    Cells.Select
    
    Selection.AutoFilter
    Selection.AutoFilter Field:=4, Criteria1:="1"
    Range("a2:C" & Myfilter).Select
    Selection.Copy

 

[Andrew Poulsom]

Try selecting only the visible cells:

Range("a2:C" & Myfilter).SpecialCells(xlCellTypeVisible).Select