Filtering Cells using VBA

[zaska]

Hi all,

   Range("A1:H1").AutoFilter Field:=8, Criteria1:="=BE", Operator:=xlOr, _
        Criteria2:="=EQ"
    Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    ActiveWindow.ScrollRow = 1
    Range("I1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A1:H1").Select
    Selection.AutoFilter
    Columns("A:H").Delete
    Range("B3").Select

I am using the above code to filter "BE" and "EQ" . I would like senior members to suggest alternative if any for the above code. i.e filtering only "BE" and "EQ" and deleting the remaining

What i tried in the above code is to Filter " BE " and " EQ " paste the filtered columns next to the original data and delete the original data.

Thanks

 

[zaska]

Finally it worked and Amazing.

Thank you for the kind support.

Have a nice day

Regards,

Zaska

 

[Domenic]

You're very welcome! And thanks for the feedback!