Hola..espero me puedas ayudar quiero ejecutar esta macro haciendo un bucle..me ayudas

Sub actualizando()

Application.ScreenUpdating = False
Do While
busq = ActiveCell.Value
Selection.Copy
Windows("CUADRO GENERAL.xls").Activate
Range("A2:A7000").Select
Cells.Find(What:=busq, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Rows(ActiveCell.Row).Select
Windows("ACTUALIZANDO_DATOS").Activate
Rows(ActiveCell.Row).Select
Selection.Cut
Windows("CUADRO GENERAL.xls").Activate
ActiveSheet.Paste
Windows("ACTUALIZANDO_DATOS").Activate
ActiveCell.Offset(1, 0).Select
Loop

bueno te comento esta macro pude hacerlo grabando las ejecuciones..lo q hace es q en el libro actualizando datos coja el código q solo están en la columna a y lo busque en el libro Cuadro general luego de encontrarlo me corte del libro actualizando datos toda la fila y lo pegue en el cuadro general.

ahora lo q quisiera q me ayudes es q como tengo varios códigos q pasar a la hoja cuadro general..estoy ejecutando cada rato la macro es posible hacer un bucle...y cuando llegue a una celda vacía del libro actualizando datos se detenga y salga un mensaje (se actualizaron todos los datos),claro cuando ActiveCell.Offset(1, 0).Select no tenga ningún dato osea este vacía..ayudame si....

te lo agradeceré un montón..

edinson