VBA to filter and copy visible cells to another workbook

[storemannequin]

I'm trying to set up a code to filter the data in my activesheet and then copy the visible cells to a new workbook but keep getting debug areas in just this first portion of the code. Can anyone tell me how to adjust? thanks

Sub filter()
FR = Cells(Rows.Count, 1).End(xlUp).Row
Set WBA = ActiveSheet
Set WBD = Workbooks.Add(template:=xlWBATWorksheet)
Set rng = WBA.Cells(2, 1).Resize(FR - 1, 1)
 
    Cells(1, 1).autofilter
    ActiveSheet.Range("$A$1:A" & FR).autofilter Field:=2, Criteria1:=Array( _
        "DEXIS", "GENDEX", "IMGSCI", "KAVO", "P&C"), Operator:=xlFilterValues
 
rng.SpecialCells(xlCellTypeVisible).EntireRow.Copy Destination:=WBD.Sheets(1).Cells(2, 1)
 
 
End Sub

 

[Domenic]

Maybe something like this...

[font=Verdana][color=darkblue]Option[/color] [color=darkblue]Explicit[/color]

[color=darkblue]Sub[/color] filter()

    [color=darkblue]Dim[/color] WSA [color=darkblue]As[/color] Worksheet
    [color=darkblue]Dim[/color] WSD [color=darkblue]As[/color] Worksheet

    [color=darkblue]Set[/color] WSA = ActiveSheet
    
    [color=darkblue]Set[/color] WSD = Workbooks.Add(template:=xlWBATWorksheet).Worksheets(1)
    
    [color=darkblue]With[/color] WSA
        .AutoFilterMode = [color=darkblue]False[/color]
        .Cells(1, 1).AutoFilter
        [color=darkblue]With[/color] .AutoFilter.Range
            .AutoFilter Field:=2, Criteria1:=Array( _
                "DEXIS", "GENDEX", "IMGSCI", "KAVO", "P&C"), Operator:=xlFilterValues
            .Offset(1, 0).Copy Destination:=WSD.Cells(2, 1)
        [color=darkblue]End[/color] [color=darkblue]With[/color]
        .AutoFilterMode = [color=darkblue]False[/color]
    [color=darkblue]End[/color] [color=darkblue]With[/color]
 
[color=darkblue]End[/color] [color=darkblue]Sub[/color]
[/font]