code stops working after X rows.

I'm using Excel 2007 and my s/s is 360000 rows deep.
To cut+paste formulas+formats from one column to another I'm using the following code:

Sub move_formula_and_formats_from_I_to_L()

Dim cell As Range

Application.ScreenUpdating = False


For Each cell In Range("I1", Cells(Rows.Count, "I").End(xlUp))
With cell
If .HasFormula And Not .Offset(1).HasFormula Then
.Cut Destination:=.Offset(1, 3)
End If
End With
Next cell

Application.ScreenUpdating = True

End Sub

Each time the code is run it stops working after 159050 rows and highlights (in yellow) the line:

.Cut Destination:=.Offset(1, 3)

Can anyone help with this??

Small XML attachment may help better understand.
Big thanks.
Colwyn.

cross-post: http://www.mrexcel.com/forum/showthread.php?t=355116

colwyn,

Please add the link to the other excel forum as cross post without the link is not permitted. Read the forum rules below before posting again

VBA Noob