If Row Contains Non Empty Cell Copy To Alternate Worksheet

When the worksheet is changed;

-For each row between A3 and A5000
-If cell in column L is empty
-Do Nothing and move on to next row
-Otherwise if cell in column L is not empty
-Copy entire row to alternate sheet, and delete row from original sheet.
-After all rows between A3 and A5000 have been checked, sort alternate sheet in ascending order based on the contents of column A.

The issue is that the code keeps skipping some rows that should be copied, possibly due to the 'for each' command not liking how I'm deleting rows (maybe?)

VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rCell As Range
Dim lRow As Long
lRow = Range("A3:A5000").Rows.Count

[Code] .....