cut and copy an entire row based on value in a cell

Hi,

I have a spread sheet containing a list of tasks. The first sheet is called "Press Shop", I also have a sheet called "archive". When a task is complete, column J is set to complete. I am looking for some code that will cut this entire row out of the "Press Shop" sheet, move the cells up, and copy it to the bottom of the list in "archive".

Can anyone help me please?

Code I have so far.

Sub As_Of_Analysis_Sorting()

Dim lr As Long
Dim lr2 As Long
Dim r As Long

lr = Sheets("Press Shop").Cells(Rows.Count, "A").End(xlUp).Row
lr2 = Sheets("Archived Changes").Cells(Rows.Count, "A").End(xlUp).Row

For r = lr To 2 Step -1
If Range("J" & r).Value = "Complete" Then
Rows(r).Copy Destination:=Sheets("Archived Changes").Range("A" & lr2 + 1)
lr2 = Sheets("Archived Changes").Cells(Rows.Count, "A").End(xlUp).Row
End If
Next r

End Sub

It's repeating some rows twice, and obviously not deleting rows yet


Thanks