tič... provala...
č sicuramente da sistemare, ma intanto č una bozza
la macro spazza TUTTI i fogli della cartella, crea un nuovo file e copia le colonne che trova a partire dalla cella A1 di ogni foglio.

Insomma... provala, poi fai sapere
ciao ciaoooooo

codice:
Sub riunisci()

foglioorig = ThisWorkbook.Name
campi = "Articolo|Colore|Sic|Imb|Info|Tot|Fisisco"
campiS = Split(campi, "|")

Workbooks.Add
riepilogo = ActiveWorkbook.Name

For t = 1 To Sheets.Count
    Workbooks(foglioorig).Activate
    Sheets(t).Activate
    Sheets(t).Cells(2, 1).Select
    
    If ActiveSheet.Cells(2, 1).Offset(0, 0) = "" Then
        'nessun Dato, fai niente
        
    ElseIf ActiveSheet.Cells(2, 1).Offset(1, 0) = "" Then
        'un solo dato
        Range(Selection, Selection.End(xlToRight)).Select
        Selection.Copy
        
        Workbooks(riepilogo).Activate
        
    Else
        'pių dati
        Range(Selection, Selection.End(xlToRight)).Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
        
        Workbooks(riepilogo).Activate
        ActiveSheet.Paste
        ActiveSheet.Cells(1, 1).End(xlDown).Select
        Selection.Offset(1, 0).Select
    End If
    
    
Next t



End Sub