Cut Paste Autofilter Results to another Sheet

  • I need to autofilter Column J with the criteria "Rehire Date". I then need to take those results and paste them into Sheet2 while deleting the rows on the first page. Then exiting the autofilter (which I can do but figured I would mention).
    I have been looking around and been finding some answers, but they are all different and I can't seem to figure out what parts I need and how to input them into my code. I have this code here that worked for someone but I thought I changed out what I needed but it won't seem to work. If there is a better way I could do it that way as well but this is what I have. Where I got it said this would copy only what is shown on screen then delete them but I get a error 424 Object not defined on the .Copy row. I am having a really hard time figuring this one out.


    Code
    1. Columns(10).AutoFilter 1, "Rehire Date"
    2. With Range("a2", Range("J" & Rows.Count).End(3))
    3. .Copy Sheet2.Cells(Rows.Count, 1).End(3).Offset(1)
    4. .EntireRow.Delete
    5. End With
    6. Columns(10).AutoFilter



    Thanks in advance for any help!