I want to find a text “fbo” in the column D filters and copy paste the resulting rows into a new sheet

Question

\'Here\'s the code. Please help me Sub filtering() Application.ScreenUpdating = False Dim rng As Range Dim autofiltrng As Range Dim ws As Worksheet

Set ws = Sheets(&q