On Error GoTo not working

[Metaripley]

So ive got a autofilter with a VBA code to select the filtered data and copy it somewhere else.
But once the code has run a first time the 2nd time the autofilter is run it trows an error because there is no data (run time error 1004 no cell are found).
Until here it does what its supposed to do...
So I made an On Error Goto in the hope it would skip all next steps and end the macro.
But it does skip the select autofilter step, but it will continue all next steps and doesnt skip to the end of the macro as I thought it would.

Sub Select_fliterd()
    
    'Select section
    On Error Resume Next
    ActiveSheet.Range("A2:M430").SpecialCells(xlCellTypeVisible).Select
    On Error GoTo endProc
    
    'Selection.Copy
    'go to location
    Sheets("Planning").Select
    Range("G1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1).Select
    
    'past values only
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

endProc:
End Sub

 

[Fluff]

You need to put the Goto before the special cells not after it

    On Error GoTo endProc
    ActiveSheet.Range("A2:M430").SpecialCells(xlCellTypeVisible).Select

 

[Metaripley]

Thanks!
And I dont need the Resume Next then?

 

[Fluff]

And I dont need the Resume Next then?

Nope.

 

[Metaripley]

Nope.

Thank you, its working!

 

[Fluff]

You're welcome & thanks for the feedback.