DAm Cargar Archivo excel con macro

Tengo una macro en la cual me permite copiar los datos de cualquier hoja a mi principal, e detalle es que, al hacerlo quisiera que omita la primera fila ya que es la cabecera del archivo principal, tengo esta macro en la cual detalla el funcionamiento, si puedieras ayudarme con ese detalle, gracias...

Sub CopiarDatos()
Dim Hoja As Object
Application.ScreenUpdating = False
Dim X As Variant
X = Application.GetOpenFilename _
("Excel Files (*.xl*), *.xl*", 2, "Abrir archivos", , True)
If IsArray(X) Then
A = ActiveWorkbook.Name
For y = LBound(X) To UBound(X)
Application.StatusBar = "Importando Archivos: " & X(y)
Workbooks.Open X(y)
b = ActiveWorkbook.Name
For Each Hoja In ActiveWorkbook.Sheets
Hoja.Copy after:=Workbooks(A).Sheets(Workbooks(A).Sheets.Count)
Next
Workbooks(b).Close False
Next
Application.StatusBar = "Listo"
Call Unir
End If
Application.ScreenUpdating = False
End Sub
Sub Unir()
Dim Sig As Byte, Eliminar As Boolean
For Sig = 2 To Worksheets.Count
Worksheets(Sig).UsedRange.Copy _
Worksheets(1).Range("A1000000").End(xlUp).Offset(1)
Next
Application.DisplayAlerts = False
For Sig = 2 To Worksheets.Count
Worksheets(2).Delete
Next
Application.DisplayAlerts = True
End Sub