Dim flag As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
Dim dlg As Integer
If flag = True Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("j3:j" & Range("j65536").End(xlUp).Row)) Is Nothing Then
dlg = Sheets("Archives").Range("A65536").End(xlUp).Row + 1
With Range("A" & Target.Row & ":j" & Target.Row)
flag = True
.Copy Sheets("Archives").Range("A" & dlg)
Sheets(ActiveSheet.Name).Rows(Target.Row & ":" & Target.Row).Delete Shift:=xlUp
flag = False
End With
End If
End Sub