Loop Macro?

[Guest]

I am trying to get the following macro to loop until reaching the end of the
data (length will not be standard every time). But when I run, it gets stuck
- any suggestions?

Thanks

ActiveCell.Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown
ActiveCell.Select
ActiveCell.FormulaR1C1 = "#"
ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(-1, 1).Range("A1").Select
Selection.Cut
ActiveCell.Offset(1, -1).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Do Until ActiveCell.Value = ""
Loop



End Sub

 

[Bob Phillips]

which bit do you want to loop around?

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Guest]

Hi,
Don't know what you have as far as data goes, but the loop needs to start ot
the top. This is your code with one line moved to the top.
Thanks,

Do Until ActiveCell.Value = ""

 

[Guest]

Thank You so much! This is exactly what I needed.