Need help keeping track of roster and its changes

I have a tracker that I use to track the audits of three teams. Right now the teams are on the same sheet together. I have three employees who audit the three teams. I assign one team to one auditor. My issue is how to keep up with changes in teams. If people trade teams then I have to update that. Right now each auditor has their own workbook (because shared wbs don't work well), I then run a macro that goes and copies their team (it only selects their team based on column "a") into my master tracker. I then push all that back out to everyone so that they have a copy of the master. This way they can see who needs help and such. So essentially, I combined into one, then push back out. My auditors will help each other if they fall behind or if one is absent, so its good for them to have a copy of the master. If someone changes teams then right now I can just change the team name on my master and it will get copied out to everyone. Not real difficult right now. My issue lies in that there always seems to be some discrepancy, either something doesn't copy or paste. The code below is what I use to pull all the data together. I'll make a second post on how I push the data back out. I am looking for a better way, its multiple times a week that sometime needs changed and it never seems to go smoothly. I think I can manually copy the data faster than w/e I did wrong with the code. I attached a sample workbook. If you want 100% similar testing then duplicate that workbook for each QA name, and one for the master.

This is the error I get when trying to post the macro. I've uploaded it as a notepad.

Access Denied - Sucuri Website Firewall
If you are the site owner (or you manage this site), please whitelist your IP or if you think this block is an error please open a support ticket and make sure to include the block details (displayed in the box below), so we can assist you in troubleshooting the issue.

Block details:
Your IP: 98
URL: http://www.excelforum.com/newreply.p...eply&t=1230048
Your Browser: Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/66.0.3359.139 Safari/537.36
Block ID: EXPVH13
Block reason: Exploit attempt denied by virtual hardening.
Time: Wed May 9 10:25:52 2018
Server ID: 12015

Long story short. I need to keep track of the teams. I thought about having each team just have their own separate sheet and then using a Power Query to import them all together but that makes changing teams hard if there are very many because it comes a game of cut/paste and in reality we have closer to a dozen teams.

Here is the macro that I use to then push out a copy of all.

No clue why this code posts ok.

'Run AFTER you Pull


Sub QA_PushTracker()

Dim z As Workbook, a As Workbook, b As Workbook, c As Workbook, d As Workbook, e As Workbook, f As Workbook, g As Workbook, h As Workbook, i As Workbook, j As Workbook

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim V

On Error Resume Next

ActiveSheet.ListObjects("Audit Tracker").Unlist

'Source Workbooks:

Const cPath_Name As String = "K:\E\"




    Set z = Workbooks("z - may 2018.xlsm")
    If z Is Nothing Then Set z = Workbooks.Open(cPath_Name & "z - may 2018.xlsm", UpdateLinks:=0)
    
    Set a = Workbooks("a - may 2018.xlsm")
    If a Is Nothing Then Set a = Workbooks.Open(cPath_Name & "a - may 2018.xlsm", UpdateLinks:=0)
    
    Set b = Workbooks("b - may 2018.xlsm")
    If b Is Nothing Then Set b = Workbooks.Open(cPath_Name & "b - may 2018.xlsm", UpdateLinks:=0)
    
    Set c = Workbooks("c - may 2018.xlsm")
    If c Is Nothing Then Set c = Workbooks.Open(cPath_Name & "c - may 2018.xlsm", UpdateLinks:=0)
    
    Set d = Workbooks("d W W - may 2018.xlsm")
    If d Is Nothing Then Set d = Workbooks.Open(cPath_Name & "d W - may 2018.xlsm", UpdateLinks:=0)
    
    Set e = Workbooks("e - may 2018.xlsm")
    If e Is Nothing Then Set e = Workbooks.Open(cPath_Name & "e - may 2018.xlsm", UpdateLinks:=0)
    
    Set f = Workbooks("f - may 2018.xlsm")
    If f Is Nothing Then Set f = Workbooks.Open(cPath_Name & "f - may 2018.xlsm", UpdateLinks:=0)
    
    Set g = Workbooks("g - may 2018.xlsm")
    If g Is Nothing Then Set g = Workbooks.Open(cPath_Name & "g - may 2018.xlsm", UpdateLinks:=0)
    
    Set h = Workbooks("h - may 2018.xlsm")
    If h Is Nothing Then Set h = Workbooks.Open(cPath_Name & "h - may 2018.xlsm", UpdateLinks:=0)
    
    Set i = Workbooks("i - may 2018.xlsm")
    If i Is Nothing Then Set i = Workbooks.Open(cPath_Name & "i - may 2018.xlsm", UpdateLinks:=0)

    Set j = Workbooks("j - may 2018.xlsm")
    If j Is Nothing Then Set j = Workbooks.Open(cPath_Name & "j - may 2018.xlsm", UpdateLinks:=0)


    z.Activate
    
    z.Sheets("Audit Tracker").ListObjects.Add(xlSrcRange, Range([A4].End(xlDown), [A4].End(xlToRight)), , xlYes).Name = "AuditTracker"
               ActiveSheet.ListObjects("AuditTracker").TableStyle = "TableStyleMedium3"
    
    Columns("F:F").Select
    Selection.NumberFormat = "0.00%"
        
    Cells.Select
    Application.CutCopyMode = False
        With Selection.Interior
            .Pattern = xlNone
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
  

        Dim zRng As Range
        Set zRng = z.Sheets("Audit Tracker").Range("A5:BG250")


            
  '  On Error Resume Next
       On Error Resume Next
        a.Cells.EntireRow.Hidden = False
        b.Cells.EntireRow.Hidden = False
        c.Cells.EntireRow.Hidden = False
        d.Cells.EntireRow.Hidden = False
        e.Cells.EntireRow.Hidden = False
        f.Cells.EntireRow.Hidden = False
        g.Cells.EntireRow.Hidden = False
        h.Cells.EntireRow.Hidden = False
        i.Cells.EntireRow.Hidden = False
        
        zRng.Copy
        a.Sheets("Audit Tracker").Range("A5").PasteSpecial
        b.Sheets("Audit Tracker").Range("A5").PasteSpecial
        c.Sheets("Audit Tracker").Range("A5").PasteSpecial
        d.Sheets("Audit Tracker").Range("A5").PasteSpecial
        e.Sheets("Audit Tracker").Range("A5").PasteSpecial
        f.Sheets("Audit Tracker").Range("A5").PasteSpecial
        g.Sheets("Audit Tracker").Range("A5").PasteSpecial
        h.Sheets("Audit Tracker").Range("A5").PasteSpecial
        i.Sheets("Audit Tracker").Range("A5").PasteSpecial
        j.Sheets("Audit Tracker").Range("A5").PasteSpecial
        


For Each V In Array(a, b, c, d, e, f, g, h, i, j)
'close workbooks:
    V.Close SaveChanges:=Not V.ReadOnly
Next V
        

        
        
        Application.ScreenUpdating = True
        Application.DisplayAlerts = True
        Application.CutCopyMode = False



End Sub