Do Until Loop
 

I have the following macro

Application.CutCopyMode = Fals
Selection.Cop
Windows("Attorney Net Plotting by Placement 2003_11.xls").Activat
Application.Run "'Plotting Macros.XLS'!PasteValue
Windows("NET AttorneyBatchTrack 2003_11.xls").Activat
ActiveCell.Offset(24, 0).Range("A1").Selec
Application.CutCopyMode = Fals
Selection.Cop
Windows("Attorney Net Plotting by Placement 2003_11.xls").Activat
ActiveCell.Offset(0, 1).Range("A1").Selec
Application.Run "'Plotting Macros.XLS'!PasteValue
Do Until ActiveCell.Value = "
Windows("NET AttorneyBatchTrack 2003_11.xls").Activat
ActiveCell.Offset(0, 1).Range("A1").Selec
Application.CutCopyMode = Fals
Selection.Cop
Windows("Attorney Net Plotting by Placement 2003_11.xls").Activat
ActiveCell.Offset(-1, 2).Range("A1").Selec
Application.Run "'Plotting Macros.XLS'!PasteValue
Loo
End Su

The problem is that when it reaches the empty cell, it will copy and paste that information into the new workbook before stopping. I want it to recognize that the active cell is empty and stop there, before it pastes the information. Any suggestions?