Ciao SihSoh e benvenuta anche da parte mia
Non ci devi spiegare cosa fa la tua macro ma cosa vorresti ottenere.
Abbiamo capito, ora, che hai 31 fogli con due righe popolate da A a L.
cosa vorresti fare con queste righe?
Riportarle tutte sul foglio1?
ciao
P.s. intanto ti invio la tua macro leggermente modificata
- Codice: Seleziona tutto
Sub CopiaRighe()
Application.ScreenUpdating = False
Foglio2.Select
Range("A2:L3").Copy Destination:=Foglio1.Range("A5000").End(xlUp).Offset(2, 0)
Application.CutCopyMode = False
Sheets("Foglio2").Columns("A:L").Copy
Sheets("Foglio1").Columns("A:L").PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
Range("A1").Select
Foglio1.Select
Range("A1").Select
Application.ScreenUpdating = True
End Sub