Macro to apply filter and move result to another worksheet

[eduzs]

I need a macro to apply a text filter in activesheet and move result to worksheet "Temp".
ActiveSheet.Columns(1).AutoFilter Field:=1, Criteria1:="<>*MyText*"
After that, remove autofilter so result activesheet only contains cells with MyText, and all rows without MyText are in sheet "Temp".
I managed to do it with loop each row using InStr, but takes a lot of time.
How to do that?
Thanks!

 

[mumps]

This macro assumes you have headers in row 1 and your data starts in row 2.

Sub MoveRow
    Application.ScreenUpdatis()ng = False
    With ActiveSheet
        .Range("A1").CurrentRegion.AutoFilter 1, "<>*MyText*"
        .AutoFilter.Range.Copy Sheets("Temp").Range("A1")
        .AutoFilter.Range.Offset(1).EntireRow.Delete
        .Range("A1").AutoFilter
    End With
    Application.ScreenUpdating = True
End Sub