I have something similar for my coins collection.
Many worksheets and then I join all them in one named "Master List"
Try this code:

Sub Summarize()
Dim ws As Worksheet
Dim lastRng As Range
Application.ScreenUpdating = False ' speed up code

ThisWorkbook.Sheets("Master
List").Range("B2:M65536").ClearContents 'clear

For Each ws In ThisWorkbook.Worksheets
Set lastRng = ThisWorkbook.Sheets("Master
List").Range("b65536").End(xlUp).Offset(1, 0)

Select Case ws.Name
Case "Master List" 'exlude
'do nothing
Case "Folha1"
Case Else
ws.Activate

'copy data from individual sheets
Range("A250", Range("X65536").End(xlUp)).Copy lastRng

End Select
Next
Application.CutCopyMode = False 'clear clipboard
Application.ScreenUpdating = True
Sheets("Master List").Activate
Cells.Select
End Sub


lana.b escreveu:
Dear all,

i have one worksheet divided into 20 tab( sheets) all sheets with the same
templates but for different users, but i want sheet 21 have all data from the
other sheets.
note: each sheet has a password for its user , so i need sheet 21 to be the
master sheet and updated at the same, if one user makes some changes on any
record,this should automatically reflected in sheet 21 .
plz plz help ASAP