Unir abas excel

[Cristian da Silva Coutinho]

Galera,

preciso unir as abas do excel e esta dando erro 1004 da planilha em anexo.

Sub Copiar()

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Do
Sheets("page 1").Select
Dim LIN As Long
LIN = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ActiveSheet.Next.Select
Range("A1:L48").Select
Selection.Copy
ActiveSheet.Previous.Select
Range("A" & LIN).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, skipblanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Next.Select
ActiveSheet.Delete
LIN = 0
Loop Until Worksheets.Count = 1
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Range("A1").Select

End Sub

 

Alguem, pode me ajudar.

 

[CasaDoHardware]

Kd a planilha?