I read this thread that almost as the code that i need.

Sub Macro2()
 
Dim ws As Worksheet
 
Application.ScreenUpdating = False

For Each ws In Worksheets
    If ws.Name <> "Data" Then
        With Sheets("Data")
            .Range("A1").AutoFilter field:=7, Criteria1:=ws.Name
            .AutoFilter.Range.Offset(1).Copy ws.Range("A2")
            .ShowAllData
        End With
    End If
Next ws

Sheets("Data").AutoFilterMode = False

Application.ScreenUpdating = True
    
End Sub
As the original author i want to paste only column A to E (without the field criteria column).
Please, someone can point me to changes that i have to make!?
Thanks in advance,
Luís