Thank you for your help. The code worked, but I am wondering if there is a way to change it a bit. I noticed that if I start typing into the wrong row of column six and delete it, the row still gets moved to sheet 2 when I leave the cell. I tried to change Target.Cells.Count=1 to Target.Value>0 (since I am entering a date into the cell). The macro works when I did that, but I get run-time error '13' at the end of it. Is there an easy way to fix this that I am missing?