VBA - How to select range of cells based on value of 2 cells in each row

[Paul_Hossler]

Starting with the macro recorder and making the resulting macro a little more general purpose

Option Explicit

Sub Macro1()
    Dim wsSrc As Worksheet, wsDest As Worksheet
    Dim rSrc As Range

    Set wsSrc = Worksheets("Sheet1")
    Set wsDest = Worksheets("Sheet2")
    Set rSrc = wsSrc.Cells(1, 1).CurrentRegion
    
    If wsSrc.AutoFilterMode Then wsSrc.AutoFilterMode = False
        
    With rSrc
        .Rows(1).AutoFilter
        .AutoFilter Field:=2, Criteria1:="=GP20", Operator:=xlAnd
        .AutoFilter Field:=5, Criteria1:="<>Finished", Operator:=xlAnd
        .SpecialCells(xlCellTypeVisible).Copy wsDest.Cells(1, 1)
        Application.CutCopyMode = False
    End With
    
    wsSrc.AutoFilterMode = False
    
End Sub