Este fórum está sendo desativado

[IsabellaOrcioli]

Preciso sistematizar alguns dados, que estão dispostos da mesma forma em várias abas, para uma única aba. E fazer este mesmo processo para 71 planilhas.
Todas as abas começam com LA , e variam de LA 1 a LA 18 (Tem planilha que tem de LA 1 a LA 3 e outras de LA 1 a LA 18).
Eu criei uma aba para sistematizar esses dados, com o nome "Nova"
O que eu preciso copiar e colar para todas as abas com nome LA é (note que eu preciso colar transposto na aba "Nova"):

Sheets("LA 1").Select
Range("C9").Select
Selection.Copy
Sheets("Nova").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("LA 1").Select
Range("M21:R34").Select
Selection.Copy
Sheets("Nova").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

Sheets("LA 1").Select
Range("S21:X34").Select
Selection.Copy
Sheets("Nova").Select
Range("P2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

Sheets("LA 1").Select
Range("S41:S47").Select
Selection.Copy
Sheets("Nova").Select
Range("AD2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

Sheets("LA 1").Select
Range("T41:T47").Select
Selection.Copy
Sheets("Nova").Select
Range("AK2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

Sheets("LA 1").Select
Range("U41:U47").Select
Selection.Copy
Sheets("Nova").Select
Range("AR2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

Sheets("LA 1").Select
Range("I79:I111").Select
Selection.Copy
Sheets("Nova").Select
Range("AY2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

Obs1: eu já consegui nomear os titulos das colunas da aba "Nova"
Obs2. eu gravei o comando da LA 1, mas precisaria fazer a mesma coisa para 18 abas.
Alguém sabe um código em que eu possa dizer que se a aba começa com LA, então faça a mesma coisa, colando abaixo dos dados da LA anterior?

[DJunqueira]

Vc deve disponibilizar sua planilha p/ q possamos te ajudar.
Dependendo da sua versão do Excel é possível realizar o q vc almeja com Power Query.