Excel columnas de varias hojas

Entonces, ¿he estado intentando copiar múltiples datos de varias hojas en una sola hoja, cómo seleccionar todas las columnas de varias hojas y colocarlas en alguna otra hoja?

El siguiente código de VBA escrito lo ayuda a copiar datos de todas las hojas de trabajo del libro de trabajo activo a la vez en una nueva hoja de trabajo. Pero recuerde que este código funcionará correctamente cuando todas las hojas de trabajo deben tener la misma estructura de datos, que significa el mismo número de columnas y filas en la misma.

    Sub CommandButton1_click()

    Dim J As Integer
    On Error Resume Next

    Sheets(1).Select

    Worksheets.Add

    Sheets(1).Name = "Combined Sheet"
    Sheets(2).Activate

    Range("A1").EntireRow.Select

    Selection.Copy Destination:=Sheets(1).Range("A1")

   For J = 2 To Sheets.Count
     Sheets(J).Activate
    Range("A1").Select

   Selection.CurrentRegion.Select
     Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
      Selection.Copy Destination:=Sheets(1).Range("A2000").End(xlUp)(2)
   Next

   End Sub

NÓTESE BIEN: En el código VBA anterior que he escogido de la celda A1, significa que en cada rango de datos de la hoja comienza desde A1. Pero puede REEMPLAZAR la Celda de inicio (A1) con otra Celda, según su necesidad.

Espero que esto te ayude.