Macro Sort, move, delete

There must be better ways but try this on a copy of tour workbook.

Sub Maybe()
    Dim lr As Long
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    
    Application.ScreenUpdating = False
    
    With Range("A1:E" & lr)
        .Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:=Range("B1") _
            , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
              False, Orientation:=xlTopToBottom
        .AutoFilter 2, "certain text"    '<---- Change to text you want
    End With
    
    Range("A2:E" & lr).SpecialCells(12).Copy Range("F2")
    Range("A2:E" & lr).SpecialCells(12).Select
    ActiveSheet.AutoFilterMode = False
    
    Selection.Delete Shift:=(xlUp)
    Range("A1").Select
    
    Application.ScreenUpdating = True
End Sub

thanks for the reply. this works pretty good but one thing it is does wrong is that it is selecting one row of wrong data when moving the information over. one, it is cutting the info from the a-f and pasting all in e-j. I dont want it to cut the cells out and only to paste the values. Also when moving the data over to e-j it take one row of data that should not be removed from a-f and putting it in e-j. the 4th row is where the data starts. i changed the code a bit. not sure if that is what causes the issue for me

Formula:

Sub Maybe()

    Dim lr As Long

    lr = Cells(Rows.Count, 1).End(xlUp).Row

    

    Application.ScreenUpdating = False

    

    With Range("A4:E" & lr)

        .Sort Key1:=Range("A4"), Order1:=xlAscending, Key2:=Range("B4") _

            , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _

              False, Orientation:=xlTopToBottom

        .AutoFilter 2, "Sell"    '<---- Change to text you want

    End With

    

    Range("A4:E" & lr).SpecialCells(12).Copy Range("F4")

    Range("A4:E" & lr).SpecialCells(12).Select

    ActiveSheet.AutoFilterMode = False

    

    Selection.Delete Shift:=(xlUp)

    Range("A4").Select

    

    Application.ScreenUpdating = True

End Sub

thanks memoe

Non of that information was in your first post.
If you can be a little more specific what is needed, I am sure it can be done.
An attachment with a before and after would be the best.

Just more or less guessing. Is this it?
Make sure to try it on a copy of your workbook first.

Sub Maybe()
    Dim lr As Long
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    
    Application.ScreenUpdating = False
    
    With Range("A3:E" & lr)
        .Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:=Range("B1") _
            , Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:= _
              False, Orientation:=xlTopToBottom
        .AutoFilter 2, "sell"
    End With
    
    Range("A4:E" & lr).SpecialCells(12).Copy Range("F2")
    ActiveSheet.AutoFilterMode = False
    
    Application.ScreenUpdating = True
End Sub

This works on a loop.
From the way I understand you #6 post, it should do what you have in mind.

Sub Maybe_A()
    Dim lr1 As Long, lr2 As Long, lr3 As Long, i As Long
    Application.ScreenUpdating = False
    
    lr1 = Cells(Rows.Count, 2).End(xlUp).Row
    For i = lr1 To 4 Step -1
        If Range("B" & i) = "Sell" Or Range("B" & i) = "sell" Then Range("B" & i).Offset(, -1).Resize(, 5).Copy _
           Range("F" & Rows.Count).End(xlUp)(2): Range("B" & i).Offset(, -1).Resize(, 5).Delete Shift:=xlUp
    Next i
    
    lr2 = Cells(Rows.Count, 1).End(xlUp).Row
    With Range("A3:E" & lr2)
        .Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:=Range("B1") _
            , Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:= _
              False, Orientation:=xlTopToBottom
    End With
    
    lr3 = Cells(Rows.Count, 6).End(xlUp).Row
    With Range("F3:J" & lr3)
        .Sort Key1:=Range("F1"), Order1:=xlAscending, Key2:=Range("G1") _
            , Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:= _
              False, Orientation:=xlTopToBottom
    End With
    
    Application.ScreenUpdating = True
End Sub

thanks so much for all your time and help with this. It works great!

Glad it does work for you.
Thanks for letting us know
Good luck