Macro needed to search for text, highlight row, then cut & paste to another worksheet

I think the copy is upside down. (Thats what I got).
If you want it as in the order of the original sheet, try this:

Dim i As Long, lrow As Long

Application.ScreenUpdating = False

With Worksheets("Sheet1")
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
 .Range("A2").Select
    'For i = lrow To 2 Step -1
     For i = 2 To lrow
      Debug.Print "Bgn. i=" & i & "Active=" & ActiveCell.Row
        If .Range("B" & i).Value = "Abandoned" Then
            .Rows(i).Copy Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
            .Rows(i).Delete
            i = i - 1
            lrow = lrow - 1
            Selection.Offset(-1, 0).Select
        End If
        Selection.Offset(1, 0).Select
    Next i
End With

MsgBox "Done"

Application.ScreenUpdating = True


End Sub