Runtime 1004 - expected no data error

[horizonflame]

Hi All

I am applying a filter to a column where sometimes no data will be found (as expected). Can someone help with code to step past the 'Runtime 1004' error so the macro carries on?

Thanks

Selection.AutoFilter
    ActiveSheet.Range("$A$1:$Q$2000").AutoFilter Field:=13, Criteria1:=RGB(204 _
        , 153, 255), Operator:=xlFilterCellColor
        
    Application.Goto Reference:="R3C1:R2000C1"
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    
    Sheets("Sheet2").Select
    Range("I4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

 

[bobsan42]

Selection.AutoFilter
    ActiveSheet.Range("$A$1:$Q$2000").AutoFilter Field:=13, Criteria1:=RGB(204 _
        , 153, 255), Operator:=xlFilterCellColor
        
    Application.Goto Reference:="R3C1:R2000C1"
[COLOR=#ff0000]on Error resume next[/COLOR]
    Selection.SpecialCells(xlCellTypeVisible).Select
[COLOR=#ff0000]if err.number = 0 then    [/COLOR] 
    Selection.Copy

    Sheets("Sheet2").Select
    Range("I4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
[COLOR=#ff0000]end if[/COLOR]

 

[horizonflame]

bobsan42, thank you!

 

[bobsan42]

you are welcome