Sub WorksheetLoop()
Dim WS_Count As Integer
Dim I As Integer ' este es el contador de Hojas.....
Dim J As Integer ' Este es el contador de Celdas de la Hoja BASE
Dim K As Integer 'Este es el Contador de Celda de Cada Una de las Hojas
Dim Vcelda As String 'Esto es para validar y tener la celda que estoy revisando
WS_Count = ActiveWorkbook.Worksheets.Count
K = 2
Vcelda = ""
For I = 1 To WS_Count
J = 2
If ActiveWorkbook.Worksheets(I).Name <> "BASE" Then ' si no estoy en base recorro la celdas de esta hoja y acumulo en base
ActiveWorkbook.Worksheets(I).Select
Vcelda = Range("A" & J).Value
While Range("A" & J).Value <> ""
ActiveWorkbook.Worksheets("BASE").Select
Range("A" & K).Value = Vcelda
J = J + 1
K = K + 1
ActiveWorkbook.Worksheets(I).Select
Vcelda = Range("A" & J).Value
Wend
Exit Sub
Next I
End Sub