Unir diferents fulls Excel en un únic full

 He fet una importació de dades des de PDF i se m'han carregat 13 fulls.

Cada full s'ha creat com a Page001, Page002, Page003.... fins a Page013

Vull carregar unir totes les dades dins Hoja 1

Cada pàgina de dades té menys de 30 línies.

No vull tocar la primera línia de Hoja1 perquè alli vull escriure una capçalera.

No vull tocar la primera columna de Hoja1 perquè allí vull tenir una columna d'ordre (1,2,3,....)

L'opció CONSOLIDAR té certes restriccions, així que ho faré amb VBA:

Option Explicit

Dim MyNumPage As String

Dim MyRange As String

Dim NumeracioMyNumPage As Byte

Dim NumeracioMyRange  As String

Dim i As Byte

Sub CopiarYPegar()

NumeracioMyRange = -28

i = 1

For i = 1 To 13

    NumeracioMyNumPage = i

        If i < 10 Then

            MyNumPage = "Page00" & NumeracioMyNumPage

        Else

            MyNumPage = "Page0" & NumeracioMyNumPage

        End If

    Parche_01

Next i

End Sub

Sub Parche_01()

    Sheets(MyNumPage).Select

    ActiveSheet.Range("A2:P30").Select

    Selection.Copy

    Sheets("Hoja1").Select

    NumeracioMyRange = NumeracioMyRange + 30

    MyRange = "B" & NumeracioMyRange

    Range(MyRange).Select

    ActiveSheet.Paste

End Sub