Try the following code, assigned to the button:-
Dim lr As Long
Application.ScreenUpdating = False
Sheet1.Range("G1", Sheet1.Range("G" & Sheet1.Rows.Count).End(xlUp)).AutoFilter 1, "Reorder", 7
lr = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
If lr > 1 Then
Sheet1.Range("A2", Sheet1.Range("E" & Sheet1.Rows.Count).End(xlUp)).Copy
Sheet2.Range("A" & Rows.Count).End(3)(2).PasteSpecial xlValues
'Sheet1.Range("A2", Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp)).EntireRow.Delete
Application.CutCopyMode = False
Application.ScreenUpdating = True
If the Status column is Column G, then the above code will filter that column for the criteria "Reorder" and then transfer the relevant row of data (just from Columns A - E) to sheet2.
If you wish to clear the "used" data from sheet1 that has been transferred to sheet2, then just remove the apostrophe(') from the begining of line 14 in the code above (the line in green font).
I hope that this helps.