Update the code so the ''Completed'' events seem at the top of the bottom list

It is more sad to comment on this post without being of any help.

Does this work for you?

Please Login or Register  to view this content.

Thanks a lot, ByteMarks! Works perfectly even after I add extra rows after the code.

You're welcome. Many thanks for the feedback

Actually it didnt quite work for me and I couldn't adapt the other code to my worksheet too.
If you can add that cutting and adding to the top of the list to the code below, it would be much appreciated.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lr&, r&, cell As Range
lr = Cells(Rows.Count, "B").End(xlUp).Row
If Intersect(Target, Range("F2:F" & lr - 1)) Is Nothing Then Exit Sub
For Each cell In Target
If LCase(cell.Value) <> "completed" Then Exit Sub
r = cell.Row
Range(Cells(r, "B"), Cells(r, "E")).Cut Cells(lr + 1, "B")
Cells(lr + 1, "F").Value = "Completed"
Application.EnableEvents = False
Range(Cells(r, "B"), Cells(r, "F")).Delete xlUp
Application.EnableEvents = True
Next
End Sub