Macro to cut rows based on NONBLANK cell and append to list in separate worksheet - xl2000

I just wanted to highlight that I have also posted this problem on excelforum.com - http://www.excelforum.com/showthread.php?p=1877634#post1877634
I hope this is ok - just hoping to resolve quickly

Hi,

After much pain, I have managed to get this working with the following code:

Sub Archive_Leavers()
Dim LastRowMain As Long
Dim LastRowEntered As Long
Dim i As Long
Application.ScreenUpdating = False
LastRowMain = Worksheets("Current Week").Range("A" & Rows.Count).End(xlUp).Row
With Worksheets("Current Week")
For i = 8 To LastRowMain Step 1
If Cells(i, "n") <> "" Then
LastRowEntered = Worksheets("Leavers Archive").Range("A" & Rows.Count).End(xlUp).Row
Rows(i).Cut Worksheets("Leavers Archive").Range("A" & LastRowEntered + 1)

End If
Next i
End With

Worksheets("Current Week").Select
Application.ScreenUpdating = True

End Sub

Thanks!