help marco with a for loop

Hello,

I need your help for a macro, with a "for" loop, that goes form cells 60 to 40. For example, in the first iteration, I will be copying cells O60 to V60 and pasting them in cells G59 to N59.
For iteration 2, I will be copying cells O59 to V59 and pasting them in cells G58 to N58...

Below is what I have done so far, but doesn't seem to work :/
There is obviously a problem this the formulation of: Range("O61:V61" - i)

Sub Macro1()
'
' Macro1 Macro

For i = 1 To 20

Range("O61:V61" - i).Select
Selection.Copy
Range("G60" - i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Next

End Sub

Thanks for your help

Thanks, this will spare me some hours of work