Not executing command- vba Please Help

HAs

I have tried this code in other sheet it is , but it is not working properly in kitexl sheet, not executing last three line

Highlighted lines in Bold is skipping and going some other function
Please Help
Private Sub AutoFilter()
On Error Resume Next
Sheet4.Activate
Range("A3:F53").Select
Selection.AutoFilter Field:=6, Criteria1:="<-3%", Operator:=xlOr, Criteria2:=">3%"
Range("A3:B53").Select_
Range("A3:B53").Copy_
Sheet3.Activate
Range("K5").PasteSpecial (xlPasteValues)
End Sub

HowUTrade

@HAs

Just remove the error handler 'On Error Resume Next'
and run the code.

If any error in the code, it will be thrown.
Post the actual error you got here.

HAs

i tried, but it jumping to some other modules,not executing the below command, so i have tried with on eeror resume next,