Issues with autofilters

[Tucker92]

I have been experimenting with auto filters and was wondering if there is a way that i could get it to copy the information to another workbook but don't know how. Can anyone help me?

Here is what i have so far but i don't know why it doesn't work. Hopefully what i'm trying to do is possible
and i havent done it all wrong.

Sub Copy_12()


Dim ws As Worksheet
     Set ws = Application.Workbooks("Carry Over").Sheets("Vac A")
     Dim data_end_row_number As Long
     data_end_row_number = ws.Range("A2").End(xlDown).Row
       
    ws.Range("table6").AutoFilter Field:=13, Criteria1:="12 WET", VisibleDropDown:=True
    ws.Range("A2:B" & data_end_row_number).SpecialCells(xlCellTypeVisible).copy
    Windows("Vac AC").Sheets("12 Wet").Range("D2").Select
        ActiveSheet.Paste
         ws.Range("D2:F" & data_end_row_number).SpecialCells(xlCellTypeVisible).copy
    Windows("Vac AC").Sheets("12 Wet").Range("D2").Select
    ActiveSheet.Paste

 

[Tucker92]

It works perfectly. Thank you for all your help on this issue.

 

[RoryA]

Glad to help.