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.