extract information from various worksheet

Hi,

Please see attached. Below are the codes. they can also be found in the macro edit function.

Sub Master()

    Dim ws As Worksheet
    Dim CellRef As Long
    Dim EmpName As String


CellRef = 4

   
    For Each ws In ThisWorkbook.worksheets
    
           If ws.Name <> "Master" Then
      
            
                ws.PivotTables("PivotTable1").TableRange2.Copy Destination:=worksheets("Master").Cells(CellRef, 1)
    
           
                
                EmpName = ws.range("C3").Copy worksheets("Master").cells(CellRef-1,1)
                
                CellRef = CellRef + ws.PivotTables("PivotTable1").TableRange2.Rows.Count + 5
                
                
        
        End If
    
    Next ws


End Sub