Eliminar primera fila de datos copiados Excel

Tengo este código que me permite cargar un libro nuevo a una hoja donde cargo toda la información, el detalles es que cada vez que cargo un nuevo libro me copia todo el encabezado de ella, lo cual ya lo tengo en la hoja principal, el objetivo es que no omita la primera fila para que no se vuelva a repetir en el excel principal, desde ya gracias:

Sub Open_Files()
Dim Hoja As Object
Dim Quest As String
Quest = MsgBox("Desea copiar una nueva hoja?", vbYesNo + vbInformation)
If Quest = vbYes Then
Application.ScreenUpdating = False
Dim X As Variant
X = Application.GetOpenFilename _
("Excel Files (*.xlsx), *.xlsx", 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_Hojas
Columns("A:AO").EntireColumn.AutoFit

End If
Application.ScreenUpdating = False
ElseIf Quest = vbNo Then
End If
MsgBox "Se copió la hoja completa", vbInformation
End Sub
Sub Unir_Hojas()
Dim Sig As Byte, Eliminar As Boolean
For Sig = 2 To Worksheets.Count
Worksheets(Sig).UsedRange.Copy _
Worksheets(1).Range("A1048576").End(xlUp).Offset(1)
Next
Application.DisplayAlerts = False
For Sig = 2 To Worksheets.Count
Worksheets(2).Delete
Next
Application.DisplayAlerts = True
End Sub