isapcsd

Olá edit: Não se esqueça que a aba que ira ser a matriz (onde todas as outras estarão reunidas) deverá ser a Plan23, portanto a aba deverá estar com esse nome para a macro funcionar; veja se a macro abaixo lhe ajuda: Sub juntarabas()' desabilita atualização da telaApplication.ScreenUpdating = False' desabilita mensagensApplication.DisplayAlerts = False' dimensiona variávelDim LIN As Integer' copia o conteúdo da aba seguinte e apaga a abaDoSheets("Plan23").Select' define a primeira linha vazia da aba atualLIN = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row' vai para a aba seguinteActiveSheet.Next.Select' copia o conteúdo necessárioRange("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).EntireRow.Copy' volta para a aba inicial e colaActiveSheet.Previous.SelectRows(LIN).Insert Shift:=xlDown' vai para a aba copiada e deleta elaActiveSheet.Next.SelectActiveSheet.Delete' limpa a variável LINLIN = 0' repete o procedimento até haver apenas 1 abaLoop Until Worksheets.Count = 1'apaga área de transferênciaApplication.CutCopyMode = False' habilita atualização da telaApplication.ScreenUpdating = False' habilita mensagensApplication.DisplayAlerts = FalseRange("A1").SelectEnd Sub