Create a macro to find a value in a table, copy the entire row and insert it to a new sheet?

[Garrek]

I'm looking to create a macro to look up a given value in a table, cut the entire row that the value is in, and paste it at the bottom of a different sheet.

The lookup value is located at cell B14 of Sheet1, it will later be tied to a userform. The table with the list of values in on Sheet2, and the lookup value will always be found in column A of the table. The row lengths vary from 4 cells up to 11. It will be replacing the row onto a table on sheet 3, where I will alphabetize it by column A.

Essentially, Sheet2 contains active items and sheet 3 contains retired items, but it is useful to still have them for reference. Could anyone help with this?

 

[onlyadrafter]

Hello,

Does this code work as expected?

Sub MOVE_TO_SHEET_3()
    Application.ScreenUpdating = False
    With Sheets("Sheet2")
        For MY_ROWS = .Range("A" & .Rows.Count).End(xlUp).Row To 1 Step -1
            If .Range("A" & MY_ROWS).Value = Sheets("Sheet1").Range("B14").Value Then
                .Rows(MY_ROWS).Copy
                Sheets("Sheet3").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
                .Rows(MY_ROWS).Delete
            End If
        Next MY_ROWS
    End With
    Application.ScreenUpdating = True
End Sub

 

[Fluff]

Duplicate https://www.mrexcel.com/forum/excel...a-new-sheet-based-cell-value.html#post5332158

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread.
Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).

As you have said the code in the other thread is working, I will close this thread