how to work with the visible rows after applying autofilter

    ActiveSheet.Range("$A$1:$J$5").AutoFilter Field:=2, Criteria1:="3"
    Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy _
        Sheets("Email").Range("A30")