When I run this macro:

-------------------------------------------------------

For z = 5 To 100
Range("Jz").Select
Application.CutCopyMode = False
Selection.Cut
Range("J(z-1)").Select
ActiveSheet.Paste

Next

----------------------------------------------------------------

I get message:

-----------------------------------------------------------------

Run time error '1004':

Method ' Range' of object _'Global failed"

----------------------------------------------------------------

Please tell me how to correct the code.

Thanks.

Ed