sto cercando di automatizzare la copia delle prime 4 colonne di tutti i fogli di lavoro
in un foglio di lavoro di riepilogo in modo da averle tutte affiancate
esempio
Foglio1 che si chiama Pippo
Foglio 2 che si chiama Pluto
etc
sul foglio di riepilogo mi appaia
la prima colonna=prima colonna Pippo
la seconda =seconda colonna Pippo
la terza = terza colonna Pippo
la quarta = quarta colonna Pippo
la quinta colonna = la prima di PLUTO
la sesta =la seconda di Pluto

e così via
adesso lo faccio manualmente..
grazie a chi mi aiuta!

salve
prova questa:

Sub raggruppa()
Dim sh As Worksheet
With Sheets("Riepilogo")
Ucol = Range("A" & Columns.Count).End(xlToLeft).Column
End With
For Each sh In Worksheets
If sh.Name <> "Riepilogo" Then
With sh
uriga = .Range("A" & Rows.Count).End(xlUp).Row
Set area = .Range("a1", .Range("D" & uriga))
area.Copy Destination:=Sheets("Riepilogo").Cells(1, Ucol)
Ucol = Ucol + 4
Set area = Nothing
End With
End If
Next
End Sub

NB. la macro prevede che il foglio dove depositare i dati copiati si chiami "Riepilogo" cambialo in base alle tue esigenze.
saluti
Giap

---