Define location for Cut and Paste

[Deverti]

i need to cut the rows inbetween and including W to X and paste them below Z in the example excel file

it needs to be done multiple times and the only way to differenciate Wi, Xi, Yi and Zi i see is each group of them being bound within pagebreaks

this process needs to be repeated roughly 200 times within the same sheet so if it s possible to work this out without loops please let me know

any hints would be great

Filebin :: bin sf32229wl8l8cz4k

Also posted here Define location for Cut-Paste

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub Deverti()
   Dim i As Long
   Dim Ar As Areas
   
   Set Ar = Range("A:A").SpecialCells(xlConstants).Areas
   
   For i = 1 To Ar.Count Step 2
      Ar(i).EntireRow.Cut
      Ar(i + 1).Offset(Ar(i + 1).Count + 1)(1).Insert
   Next i
   Application.CutCopyMode = False
End Sub

 

[Deverti]

perfection eheh. seems to be doing what i need just fine and great example for me to see dim usage. thanks a bunch^^

 

[Fluff]

You're welcome & thanks for the feedback.