Help with a macro

Hi, I have a macro and I need someone to help me with

Sub CutCopyMode()
Activesheet.Unprotect "password"
Range("J635:V635"). Select
Application.CutCopyMode = True
Selection.Copy
Range.("J637"). Select
Application.CutCopyMode = True
Activesheet.Paste
Activesheet.Protect "password"
End Sub

My problem is that this code doesn't make that I want.
Info for my sheet:
Sheet is protected with password, many cells are locked because i have formulas and i don't loose any of them.
Any time when i need copy and paste, i do it for different row but the columns are still the same.
Can code works if I just select and copy any range in sheet? Or it must have a button to work?
Thanks in advance..