Como uno dos macros distintas?

Experto
necesito unir dos macros... Y no pude... Te muestros los codigos.
el primero me toma la informacion de varias hojas y me las une en una sola y la segunda me elimina el primer renglon de cada hoja que copia.
si se puede modificar la primera macro para que me copie las hojas sin el primer renglon mejor. Si no unir estas dos macros
PRIMERA
Sub Concentrar_Hojas()
Application.ScreenUpdating = False
Dim Sig As Long, Eliminar As Boolean
If MsgBox("Deseas eliminar las hojas ""concentradas"" al final del proceso?", _
vbQuestion + vbYesNo + vbDefaultButton2, "Favor de confirmar...") = vbYes _
Then Eliminar = True
For Sig = 4 To Worksheets.Count
Worksheets(Sig).UsedRange.Copy _
Worksheets(3).Range("a65536").End(xlUp).Offset(1)
Next
If Not Eliminar Then Exit Sub
Application.DisplayAlerts = False
For Sig = 4 To Worksheets.Count
Worksheets(4).Delete
Next
Application.DisplayAlerts = True
SEGUNDA
Sheets("BASE").Select
Selection.AutoFilter Field:=1, Criteria1:="Usuario"
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Delete
Selection.AutoFilter Field:=1
Sheets("REPORTE").Select
End Sub