Programatically Move Down & Shift Left

Nicole_Michelle01

Board Regular
Joined
Nov 9, 2005
Messages
50
What would the macro look like to move the contents in every 7th row of Columns C & D down 7 rows and left into Columns A & B?

Thanks! ~ Nicole
 

Excel Facts

Last used cell?
Press Ctrl+End to move to what Excel thinks is the last used cell.
Hello,

Starting from 1

Code:
Sub MOVE_EVERY_7()
For MY_ROWS = 1 To Range("C65536").End(xlUp).Row Step 7
    Range("C" & MY_ROWS & ":D" & MY_ROWS).Cut
    Range("A" & MY_ROWS + 7).Select
    ActiveSheet.Paste
Next MY_ROWS
End Sub
 
Upvote 0
That doesn't work. This deletes the contents of Row8 in Columns A & B leaving a blank line, moves Row8 into Row15 in Columns A & B, also deleting Row 15 data in Column A & B.

I need to cut the contents of the cells in Column C & D in Row7 and paste in Columns A & B on Row14.

Hope that clarifies, thanks!

~ Nicole
 
Upvote 0
I just notice that what I posted is not the answer to your question, but go to the site anyway, I remember an example that might make it easier for you.
M.
 
Upvote 0
Hello,

I am a bit confused. Is this correct?

You want C8 and D8 moved to A15 and B15, you then want this repeated every seven rows so C15 and D15 are moved into A22 and B22
 
Upvote 0
I want C7 and D7 moved to A14 & B14, then repeated every 14 rows so C21 and D21 are moved into A28 and B28, etc.

I'll check out that website, thanks!
 
Upvote 0
Does the starting point count from the insert point or the cut point? If from cut ie C7 & D7 then the next entry would be 14 rows down to C21 & D21, if from insert/paste in A14 & B14 then the next entry would still be C21 & D21. Hope that helps!
 
Upvote 0

Forum statistics

Threads
1,226,588
Messages
6,191,888
Members
453,684
Latest member
Gretchenhines

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top