Help on ending Loop

[TimBrowne]

Hello,

I made a loop until is empty but somehow it keeps on running while the cells are empty on the tab Orden sheet, I probably have the do untill at the wrong place but am lost in seeing where it should be... Hope one can help.

Thanks!

Tim

Sheets("Application Proper").Select
    Cells.Select
    Selection.Copy
    Sheets("Application Proper").Select
    Sheets("Orden Sheet").Visible = True
    Sheets("Orden Sheet").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Cells.Select
    Cells.EntireColumn.AutoFit
    
    Sheets("ALL NAMES").Select
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    
    Sheets("Orden Sheet").Select
    Range("A2").Select
    Selection.Copy
    
    Sheets("ALL NAMES").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Orden Sheet").Select
    ActiveCell.Offset(0, 1).Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    
    Sheets("ALL NAMES").Select
    ActiveCell.Offset(0, 1).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Orden Sheet").Select
    ActiveCell.Offset(0, 6).Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    
    Sheets("ALL NAMES").Select
    ActiveCell.Offset(0, 1).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Rows("2:2").Select
    Application.CutCopyMode = False
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A2").Select
    
    Sheets("Orden Sheet").Select
    ActiveCell.Offset(1, -7).Range("A1").Select
        Selection.Copy
    Do Until IsEmpty(ActiveCell)

       
            Sheets("ALL NAMES").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Orden Sheet").Select
    ActiveCell.Offset(0, 1).Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("ALL NAMES").Select
    ActiveCell.Offset(0, 1).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Orden Sheet").Select
    ActiveCell.Offset(0, 6).Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("ALL NAMES").Select
    ActiveCell.Offset(0, 1).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Rows("2:2").Select
    Application.CutCopyMode = False
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A2").Select
        Sheets("Orden Sheet").Select
    ActiveCell.Offset(1, -7).Range("A1").Select
    Selection.Copy

 Loop
 

    Sheets("Orden Sheet").Select
    ActiveWindow.SelectedSheets.Visible = False