Delete a filtered auxiliary column while maintaining the filtered range.

[vcoolio]

Hello Stranno,

Is this what you're after?

Sub Test()

Application.ScreenUpdating = False

With Sheet1.[A1].CurrentRegion
        .AutoFilter 1, "<>" & "x"
        .Offset(1).EntireRow.Delete
        .AutoFilter
End With

Sheet1.Columns(1).Delete

Application.ScreenUpdating = True

End Sub

I've attached your sample with the code implemented. Click on the "RUN" button to see it work.

I hope that this helps.

Cheerio,
vcoolio.

Autofilter(delete column A, no copy&paste).xlsm