Repeating simple command row by row for defined sample

Hi,

I'm pretty new to VBA & have been researching how to do bits and pieces through forums and google. Have created various MACROS but they are quite grotesque. I'd like to refine them and this is I'm sure a very very simple problem but I want to learn to do this right before I start messing around with them.

I have a very simple command:

Range("J36").Select
Selection.Cut
Range("R34").Select
ActiveSheet.Paste

Currently the code is copied 30 times below rising in increments of 7. So the next part of the code reads:

Range("J43").Select
Selection.Cut
Range("R41").Select
ActiveSheet.Paste

and so on...

So what I would love to know is how to write one simple piece of code that repeats the commands in increments of 7, instead of having to copy the command and manually adjust the cell references as necessary.

Any help very gratefully recieved! TIA

Gav