Excel - COPIAR PRIMERA COLUMNA CADA HOJA A PRIMERA HOJA

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