Loop not finishing

**boomersooner5136** · 08-14-2012, 09:36 AM

My loop is not finishing all the way and keeps stopping a few columns down. I'm not experienced at this, so it's hard to figure it out.

It is Macro 9 that I am using btw.

**mike7952** · 08-14-2012, 09:40 AM

What Exactly are you wanting to do?

**niko79542** · 08-14-2012, 09:54 AM

This is a loop of a recorded macro. If you run the macro with a different cell selected, different things will happen.

You need to post what you are doing.

**boomersooner5136** · 08-14-2012, 10:01 AM

I am cutting all all rows from 101-the end and pasting them in the open cell in row 1 until there are no more rows past 100 in the entire worksheet. I am trying to unstack the data to where all of the headers are in row 1 instead of stacked the way they are. The data used to be in 4 columns btw.

**mike7952** · 08-14-2012, 10:06 AM

Looking at you sample worksheet Im still confused?

The data used to be in 4 columns btw.

in the sample data goes to column BH. Can you upload a Sample of the data in its original format, and on sheet 2 show how you would like it to look.

**boomersooner5136** · 08-14-2012, 10:29 AM

The original is on sheet 2

**jason.b75** · 08-14-2012, 10:38 AM

Try this,

With the original data in sheet 2 of the second sample, select A1 and run the code, with the earlier sample, select BE1 and run it.

Sub move_data()
Application.ScreenUpdating = False
Dim rng As Range, ctr As Long
Set rng = Intersect(ActiveSheet.UsedRange, ActiveCell.Resize(1, 4).EntireColumn)
ctr = 1
Do Until rng.Rows.Count - (ctr * 100) < 0
    Range(rng((ctr * 100) + 1, 1), rng((ctr * 100) + 100, 4)).Cut rng.Offset(, ctr * 4)
    ctr = ctr + 1
Loop
Application.ScreenUpdating = True
End Sub

**boomersooner5136** · 08-14-2012, 10:48 AM

Is there any way I can change the loop I have in place so that it will work? I'm trying to use the recorded macro so I can use a similar loop for other data without having to know how to actually write code. Lazy, I know, but I don't have the time unfortunately.

---------- Post added at 09:48 AM ---------- Previous post was at 09:42 AM ----------

Nevermind, this works awesome. Thanks a bunch, I appreciate it.

**jason.b75** · 08-14-2012, 10:51 AM

Originally Posted by boomersooner5136

so I can use a similar loop for other data

Will the 'similar' loops still be using the same cut and paste data in fixed size blocks?

The code in my previous post can be made more generic so you can use it on any size range if that would help?